Visio) (UIObject.MenuSets 屬性

會傳回 UIObject 物件的 MenuSets 集合。 唯讀。

語法

expression。 MenuSets

表達 代表 UIObject 物件的 變數。

傳回值

MenuSets

註解

注意事項

從 Visio 2010 開始，Microsoft Office Fluent 使用者介面 (UI) 取代先前的階層式功能表、工具列和工作窗格系統。 您在舊版 Visio 中用來自訂使用者介面的 VBA 物件和成員仍可在 Visio 中使用，但其運作方式不同。

如果 UIObject 物件代表功能表和快速鍵 (例如，如果是使用 Application 或 Document 物件的 BuiltInMenus 屬性來擷取物件)，則其 MenuSets 集合代表該 UIObject 物件的所有功能表。

可以使用 MenuSets 物件的 ItemAtID 屬性來擷取繪圖視窗等特定視窗內容的功能表。 如果內容不包含功能表，則該內容便不具 MenuSets 集合。

範例

下列的 Microsoft Visual Basic for Applications (VBA) 巨集會示範如何使用 MenuSets 屬性來取得 MenuSets 物件的 UIObject 集合。 它會將功能表和功能表項目加入到繪圖視窗功能表組合，並設定功能表和功能表項目的 Caption 屬性。

若要在執行這個巨集之後還原 Microsoft Visio 中的內建功能表，請呼叫 ThisDocument.ClearCustomMenus 方法。

Public Sub MenuSets_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 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。