代表容器應用程序中的一個命令欄。 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 另請參閱
支持和反饋
有關於 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