次の方法で共有

MenuSet.Menus Property

  • [アーティクル]
Visio Automation Reference

Returns the Menus collection of a MenuSet object. Read-only.

Version Information
 Version Added:  Visio 4.0

Syntax

expression.Menus

expression   A variable that represents a MenuSet object.

Return Value
Menus

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.

Visual Basic for Applications 
  
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

See Also