Visio) (Application.BuiltInMenus 屬性

會傳回代表內建 Microsoft Visio 功能表和加速器複本的 UIObject 物件。 唯讀。

注意事項

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

語法

運算式。BuiltInMenus

expression 代表 Application 物件的變數。

傳回值

UIObject

註解

使用 BuiltInMenus 屬性可取得 UIObject 物件，並修改其功能表和快速鍵。 然後可以使用 Application 或 Document 物件的 SetCustomMenus 方法，將自訂的功能表和快速鍵新增至內建的 Visio 使用者介面。

還可以使用 UIObject 物件的 SaveToFile 方法將其功能表儲存到檔案中，然後再設定 Application 或 Document 物件的 CustomMenusFile 屬性，將這些功能表重新載入為自訂的功能表。

範例

下列 Microsoft Visual Basic for Applications (VBA) 宏會示範如何使用 BuiltInMenus 屬性。 它會將功能表和功能表項目新增至 [增益集 ] 索引標籤，並設定功能表和功能表項目的 Caption 屬性。

若要在執行這個巨集之後還原 Microsoft Visio 中的內建使用者介面，請呼叫 ThisDocument.ClearCustomMenus 方法。

 
Public Sub BuiltInMenus_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 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 支援與意見反應。