全部显示

CommandBarControls 集合对象

CommandBars (CommandBar) CommandBarControls (CommandBarControl) CommandBarButton CommandBarComboBox CommandBarPopup

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