ZenMenuItem.Delete

Delete(bsName As String) As Boolean

Parameters

bsName As String

A string which defines the name of the submenu item.

Example: "Sub_1"

Remarks

The function deletes a submenu.

Sample:

Sub DeleteSubMenus()

Dim zMenus As ZenMenus  'Parent object
Dim zMenu As ZenMenu	'Child object of ZenMenus
Dim zMenuItem As ZenMenuItem 'Child object of ZenMenu
Dim deleted As Boolean

Set zMenus = MyWorkspace.ActiveDocument.ZenMenus

'Select a menu
Set zMenu = zMenus.Item(1)
'Select the first menu item in the main menu
Set zMenuItem = zMenu.Item(0)
'Deletes a submenu
deleted = zMenuItem.Delete("ID_1")
Debug.Print "Deleted = " & deleted

End Sub

See Also

ZenMenuItem