全部显示

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 属性以返回代表该菜单的命令栏。