CommandBar 对象 (Office)

  • 项目

代表容器应用程序中的一个命令栏。 CommandBar 对象是 CommandBars 集合的成员。

注意

某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息，请参阅 Office Fluent 功能区概述。

示例

使用 CommandBars (索引) ，其中 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。