代表容器應用程式中的命令列。 CommandBar 物件是 CommandBars 集合的成員。
注意事項
[!注意事項] CommandBars 用於部分的 Microsoft Office 應用程式已經由 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 支援與意見反應。