通过

Application.BuiltInToolbars 属性 (Visio)

  • 项目

返回一个 UIObject 对象，该对象代表内置 Microsoft Visio 工具栏的副本。 只读。

注意

从 Visio 2010 开始，Microsoft Office Fluent 用户界面 (UI) 替换了以前的分层菜单、工具栏和任务窗格系统。 用于在以前版本的 Visio 中自定义用户界面的 VBA 对象和成员在 Visio 中仍可用，但它们的功能不同。

语法

表达式。BuiltInToolbars (fIgnored)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
fIgnored 必需 Integer 要求向后兼容性，但是已被忽略。 建议您传递零 (0)。

返回值

UIObject

备注

使用 BuiltInToolbars 属性获取 UIObject 对象并修改其工具栏。 然后，可以使用 Application 或 Document 对象的 SetCustomToolbars 方法将内置 Visio 工具栏替换为自定义工具栏。

您还可以使用 UIObject 对象的 SaveToFile 方法将它的工具栏存储在文件中，并通过设置 Application 或 Document 对象的 CustomToolbarsFile 属性将它们作为自定义工具栏重新加载。

在 Visio 5.0 之前，此属性的参数为 fWhichToolbars，它指定了要 (MSOffice 或 LotusSS) 获取的工具栏类型。 从 Visio 5.0 开始，应用程序不再支持不同类型的工具栏，当前参数 fIgnored 将被忽略。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 BuiltInToolbars 属性获取内置 Visio 工具栏的副本、添加工具栏按钮、设置按钮图标以及使用自定义工具栏集替换内置工具栏集。

运行此宏之前，请将以下代码中的 替换为 (path\filename) 计算机上图标文件 (.ico) 的完整路径和文件名。

运行此宏后，要恢复内置 Visio 工具栏，请调用 ThisDocument.ClearCustomToolbars 方法。

 
Public Sub BuiltInToolbars_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbarItems As Visio.ToolbarItems 
 Dim vsoToolbarItem As Visio.ToolbarItem 
 
 'Get the UIObject object for the copy of the built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 
 'Get the drawing window toolbar sets.'NOTE: Use ItemAtID to get the toolbar sets.'Using vsoUIObject.ToolbarSets(visUIObjSetDrawing) will not work. 
 Set vsoToolbarSet = vsoUIObject.ToolbarSets.ItemAtID(visUIObjSetDrawing) 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbarSet.Toolbars(0).ToolbarItems 
 
 'Add a new button in the first position. 
 Set vsoToolbarItem = vsoToolbarItems.AddAt(0) 
 
 'Set properties for the new toolbar button. 
 vsoToolbarItem.CntrlType = visCtrlTypeBUTTON 
 
 'Set the caption for the new toolbar button. 
 vsoToolbarItem.Caption = "MyButton" 
 
 'Set the icon for the new toolbar button. 
 vsoToolbarItem.IconFileName "(path\filename)" 'Tell Visio to actually use the new custom UI. 
 ThisDocument.SetCustomToolbars vsoUIObject 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。