ZenMenus.Create



Create(bsName As String) As ZenMenu

Parameters

bsName As String
A string which defines the name of the menu.

Example: "menu_1"
ED
avaliable
RT
not used

Remarks

Creates a context menu or a main menu depending on the "IsPulldown" property of the zMenu object (False = context menu, True = main menu).

Sample:


Sub CreateMenus()

Dim zMenus As ZenMenus  'Parent object
Dim zMenu As ZenMenu	'Child object

Set zMenus = MyWorkspace.ActiveDocument.ZenMenus

'Creates a context menu
Set zMenu = zMenus.Create("menu_1")
zMenu.IsPulldown = False

'Creates a main menu
Set zMenu = zMenus.Create("menu_2")
zMenu.IsPulldown = True

End Sub


See Also

ZenMenus, ZenMenu