VBA CommandBar 对象 (Office)

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

https://docs.microsoft.com/zh-cn/office/vba/api/office.commandbar

 备注

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

示例

使用 CommandBars (索引) （其中 index 是命令栏的名称或索引号）可返回一个 CommandBar 对象。 下面的示例遍历命令栏集合以查找名为“Forms”的命令栏。 如果找到，则本示例将显示该命令栏并保护其停靠状态。 在本示例中，变量 cb 代表一个 CommandBar 对象。

oundFlag = 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

另请参阅

• CommandBar 对象成员
• 对象模型引用

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。

---

建议的内容

• CommandBarButton 对象 (Office)

  Office VBA reference topic

• CommandBars.Add 方法 (Office)

  Office VBA reference topic

• CommandBar 成员 (Office)

  Office VBA reference topic

• CommandBarControls.Add 方法 (Office)

  Office VBA reference topic

• Office Fluent 功能区概述

  Office VBA reference topic

• CommandBar.Controls 属性 (Office)

  Office VBA reference topic

• CommandBars 对象 (Office)

  Office VBA reference topic

• CommandBars 成员 (Office)

  Office VBA reference topic