代表容器应用程序中的一个命令栏。 CommandBar 对象是 CommandBars 集合的成员。
注意
某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息，请参阅 Office Fluent 功能区概述。
示例
使用 CommandBars (index) ，其中 index 是命令栏的名称或索引号，以返回单个 CommandBar 对象。 下面的示例逐步浏览命令栏集合，以查找名为“Forms”的命令栏。如果找到此命令栏，该示例会使其可见并保护其停靠状态。 在本示例中，变量 cb 代表一个 CommandBar 对象。
foundFlag = False
For Each cb In CommandBars
If cb.Name = "Forms" Then
cb.Protection = msoBarNoChangeDock
cb.Visible = True
foundFlag = True
End If
Next cb
If Not foundFlag Then
MsgBox "The collection does not contain a Forms command bar."
End If
使用名称或索引号在容器应用程序的可用菜单栏和工具栏列表中指定菜单栏或工具栏。 但是，必须使用名称来指定菜单、快捷菜单或子菜单， (所有这些都由 CommandBar 对象) 表示。 此示例在 “工具 ”菜单的底部添加了一个新菜单项。 选择后，新菜单项将运行名为“qtrReport”的过程。
Set newItem = CommandBars("Tools").Controls.Add(Type:=msoControlButton)
With newItem
.BeginGroup = True
.Caption = "Make Report"
.FaceID = 0
.OnAction = "qtrReport"
End With
如果两个或多个自定义菜单或子菜单具有相同的名称，则 CommandBars (索引) 返回第一个菜单或子菜单。 要确保返回正确的菜单或子菜单，请找到显示该菜单的弹出控件。 然后将 CommandBar 属性应用于弹出控件，以返回表示该菜单的命令栏。 假设工具栏上名为 “自定义工具” 的第三个控件是弹出控件，此示例会将 “保存 ”命令添加到该菜单的底部。
Set viewMenu = CommandBars("Custom Tools").Controls(3)
viewMenu.Controls.Add ID:=3 'ID of Save command is 3
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。