CommandBars 集合对象

全部显示

一个代表容器应用程序中工具栏的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 属性以返回代表该菜单的命令栏。