Office) (CommandBar 物件
代表容器應用程式中的命令列。 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 支援與意見反應。