通过

Application.BuiltInMenus 属性 (Visio)

  • 项目

返回一个 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。