Office VBA教程:CommandBars集合对象

CommandBars (CommandBar)
CommandBarControls (CommandBarControl)
CommandBarButton
CommandBarComboBox
CommandBarPopup

一个代表容器应用程序中工具栏的CommandBar对象集合。

使用 CommandBars集合

用 CommandBars属性可返回 CommandBars集合。以下示例在 Immediate 窗口显示每个菜单栏和工具栏的名称和本地名称,并显示一个数值以表明该菜单栏或工具栏是否出现在屏幕上。


For Each cbar in CommandBars
    Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible
Next

Add方法可在集合中添加一个新的命令栏。以下示例创建一个自定义工具栏“Custom1”并将其作为浮动工具栏显示。


Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)
cbar1.Visible = True

用 CommandBars(index) 可返回一个 CommandBar对象;此处 index 是该命令栏的名称或索引号。以下示例将工具栏“Custom1”固定在应用程序窗口的底部。


CommandBars("Custom1").Position = msoBarBottom

注意   可用名称或索引号指定位于容器应用程序的有效菜单栏和工具栏列表中的菜单栏或工具栏,但只能用名称指定菜单、快捷菜单或子菜单(所有这些内容均可由 CommandBar对象表示)。

如果两个或两个以上的自定义菜单或子菜单具有相同的名称,那么 CommandBars(index) 返回第一个具有该名称的菜单。为确保返回正确的菜单或子菜单,可找到显示该菜单的弹出式控件,然后对该弹出式控件使用CommandBar属性以返回代表该菜单的命令栏。

上页:Office VBA教程:CommandBarPopup对象 下页:Office VBA教程:DocumentProperties集合对象

Office VBA教程:CommandBars集合对象

Office VBA教程:DocumentProperties集合对象 Office VBA教程:DocumentProperty对象
Office VBA教程:FileDialog对象 Office VBA教程:FileDialogFilter对象
Office VBA教程:FileDialogFilters集合 Office VBA教程:FileDialogSelectedItems集合
Office VBA教程:FileSearch对象 Office VBA教程:FileTypes集合
Office VBA教程:FoundFiles对象 Office VBA教程:HTMLProject对象
Office VBA教程:HTMLProjectItem对象 Office VBA教程:HTMLProjectItems集合对象
Office VBA教程:LanguageSettings对象 Office VBA教程:MsoEnvelope对象
Office VBA教程:NewFile对象 Office VBA教程:ODSOColumn对象
Office VBA教程:ODSOColumns对象 Office VBA教程:ODSOFilter对象
Office VBA教程:ODSOFilters对象 Office VBA教程:OfficeDataSourceObject对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号