通过

Application.CommandBars 属性 (Visio)

  • 项目

返回对 CommandBars 集合的 引用，该集合代表容器应用程序中的命令栏。 此为只读属性。

注意

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

语法

表达式。CommandBars

expression：表示 Application 对象的变量。

返回值

CommandBars

备注

从 Microsoft Visio 2002 开始，程序可以通过操作 CommandBars 属性返回的 CommandBars 集合来操作 Visio 用户界面中的菜单和工具栏。 CommandBars 集合的接口与 Microsoft Office 应用程序（如 Microsoft Word 和 Microsoft Excel）套件公开的 CommandBars 集合相同。

或者，自 Visio 版本 4.0 起，Visio 公开了应用程序和文档属性，这些属性返回 UIObject 对象，该对象提供 与 CommandBars 类似的功能。 因此，程序可以使用 CommandBars 集合或 UIObject 对象来操作 Visio 菜单和工具栏。

要获取有关 CommandBars 属性返回的对象的信息，请执行下列操作：

  1. 在“ 开发工具 ”选项卡上，选择“ Visual Basic”。

  2. 在“ 视图 ”菜单上，选择“ 对象浏览器”。

  3. 在 “项目/库 ”列表中，选择“ Office”。

  4. 如果在“项目/库”列表中看不到 Office 类型库，请在“工具”菜单上，选择“引用”，选择“Microsoft Office 14.0 对象库检查”框，然后选择“确定”。

  5. 在“类”下，检查名为 CommandBars 的类。

CommandBars 集合中的每个 CommandBarControl 对象都有一个 OnAction 属性，而且 CommandBars 集合中的每个 CommandBar 对象都有一个 Context 属性。 这些属性的值由容器应用程序确定。 在 Microsoft Visio 中：

  • OnAction 属性是一个 String 值，可以认为该值是 COM 加载项、Microsoft Visual Basic for Applications (VBA) 宏、VBA 代码或 Visio 加载项名称。

  • Context 属性确定在哪个菜单上下文中显示命令栏。

    • 菜单上下文编号是一个 字符串 值， (例如 visUIObjSetDrawing 或“2”) ，如果命令栏默认可见，则后跟星号 (visUIObjSetShapeSheet& "*" or "4*") 。
    • 有效的菜单上下文是 visUIObjSetDrawing (2) 、 visUIObjSetStencil (3) 、 visUIObjSetShapeSheet (4) 、 visUIObjSetIcon (5) 或 visUIObjSetPrintPreview (7) 。 试图将 Context 属性设置为任何其他值将失败。

示例

以下宏显示如何使用 CommandBars 属性列出命令栏。

 
Public Sub CommandBars_Example() 
 
 Dim vsoCommandBars As CommandBars 
 Dim vsoCommandBar As CommandBar 
 
 'Get the set of CommandBars 
 'for the application. 
 Set vsoCommandBars = Application.CommandBars 
 
 'List each CommandBar in the Immediate window. 
 For Each vsoCommandBar In vsoCommandBars 
 Debug.Print vsoCommandBar.Name 
 Next 
 
End Sub

支持和反馈

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