ZenMenu.Delete


Delete(bsName As String) As Boolean

Parameters

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

Example: "ID_FIRST"

ED	avaliable
RT	not used

Remarks

With this function a menu item can be deleted.

Sample:


Sub DeleteMenuItem()

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

Set zMenus = MyWorkspace.ActiveDocument.ZenMenus

'Select a context or main menu
Set zMenu = zMenus.Item(1)

'Delete a main menu item and return true or false for deleted or not deleted
deleted = zMenu.Delete("ID_FIRST")
Debug.Print "Deleted = " & deleted

End Sub

See Also