CommandBarControls 集合对象

全部显示

CommandBarControl 对象的集合，该集合代表一个命令栏中的命令栏控件。

使用 CommandBarControls 集合

用Controls 属性可返回CommandBarControls 集合。以下示例将工具栏“Standard”中每个控件的题注改为该控件当前的Id 属性值。

For Each ctl In CommandBars("Standard").Controls
 ctl.Caption = CStr(ctl.Id)
Next ctl

用Add 方法可在CommandBarControls 集合中添加一个新的命令栏控件。本示例可在命令栏“Custom”中新添一个空白按钮。

Set myBlankBtn = CommandBars("Custom").Controls.Add

用Controls(index) 可返回一个CommandBarControl、CommandBarButton、CommandBarComboBox 或CommandBarPopup 对象；此处index 是该控件的题注或索引号。以下示例将命令栏“Standard”中第一个控件复制到命令栏“Custom”中。

Set myCustomBar = CommandBars("Custom")
Set myControl = CommandBars("Standard").Controls(1)
myControl.Copy Bar:=myCustomBar, Before:=1