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 支援與意見反應。

  • 上次更新時間：