全部显示

CommandBarControl 对象

CommandBars (CommandBar) CommandBarControls (CommandBarControl) CommandBarButton CommandBarComboBox CommandBarPopup

代表一个命令栏控件。CommandBarControl 对象是 CommandBarControls 集合中的成员。CommandBarControl 对象与 CommandBarButton、CommandBarComboBox 以及 CommandBarPopup 对象具有同样的属性和方法。

注意   若要为自定义命令栏控件编写 Visual Basic 代码，可使用 CommandBarButton、CommandBarComboBox 和 CommandBarPopup 对象。若要为容器应用程序中的内置控件写代码，而该控件又不能用上述三个对象中的任意一个表示，那么可使用 CommandBarControl 对象。

使用 CommandBarControl 对象

用 Controls(index) 可返回一个 CommandBarControl 对象；此处 index 是该控件的索引号。（该控件的 Type 属性必须是 msoControlLabel、msoControlExpandingGrid、msoControlSplitExpandingGrid、msoControlGrid 或 msoControlGauge。）

注意   声明为 CommandBarControl 的变量可取的值为：CommandBarButton、CommandBarComboBox 和 CommandBarPopup。

用 FindControl 方法也可返回一个 CommandBarControl 对象。以下示例查找一个 msoControlGauge 类型的控件。如果找到，那么显示该控件的索引号及其所在命令栏的名称。在本示例中，变量 lbl 代表一个 CommandBarControl 对象。

Set lbl = CommandBars.FindControl(Type:= msoControlGauge)
If lbl Is Nothing Then
    MsgBox "A control of type msoControlGauge was not found."
Else
    MsgBox "Control " & lbl.Index & " on command bar " _
        & lbl.Parent.Name & " is type msoControlGauge"
End If