Menus Property [Visio 2003 SDK Documentation]

  • Article

Returns the Menus collection of a MenuSet object.

objRet = object**.Menus**

objRet     The Menus collection of the MenuSet object.

object     Required. An expression that returns a MenuSet object.

Version added

4.0

Remarks

A Menu object's index within the Menus collection determines its left-to-right position on the menu bar.

Example

This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Menus property to get the Menus collection of a MenuSet object. It adds a menu and menu item to the drawing window menu set and sets the Caption property of the menu and menu item.

To restore the built-in menus in Microsoft Office Visio after you run this macro, call the ThisDocument.ClearCustomMenus method.

Public Sub Menus_Example()
 
    Dim vsoUIObject As Visio.UIObject 
    Dim vsoMenuSets As Visio.MenuSets 
    Dim vsoMenuSet As Visio.MenuSet   
    Dim vsoMenus As Visio.Menus 
    Dim vsoMenu As Visio.Menu 
    Dim vsoMenuItems As Visio.MenuItems 
    Dim vsoMenuItem As Visio.MenuItem 

    'Get a UIObject object that represents Microsoft Office Visio built-in menus. 
    Set vsoUIObject = Visio.Application.BuiltInMenus 

    'Get the MenuSets collection. 
    Set vsoMenuSets = vsoUIObject.MenuSets 

    'Get the drawing window menu set. 
    Set vsoMenuSet = vsoMenuSets.ItemAtId(visUIObjSetDrawing)
 
    'Get the Menus collection. 
    Set vsoMenus = vsoMenuSet.Menus 

    'Add a new menu before the Window menu. 
    Set vsoMenu = vsoMenus.AddAt(7) 
    vsoMenu.Caption = "MyNewMenu" 

    'Get the MenuItems collection. 
    Set vsoMenuItems = vsoMenu.MenuItems 

    'Add a menu item to the new menu. 
    Set vsoMenuItem = vsoMenuItems.Add 

    'Set the Caption property for the new menu item. 
    vsoMenuItem.Caption = "&MyNewMenuItem" 

    'Tell Visio to use the new UI when the document is active. 
    ThisDocument.SetCustomMenus vsoUIObject

End Sub

Applies to | MenuSet object

See Also | Menus collection