返回一个 UIObject 对象，该对象代表内置 Microsoft Visio 菜单和加速器的副本。 只读。
注意
从 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。