Auf Englisch lesen

Freigeben über


CommandBar-Objekt (Office)

Stellt eine Befehlsleiste in der Containeranwendung dar. Das CommandBar-Objekt ist ein Element der CommandBars-Auflistung .

Hinweis

[!HINWEIS] "CommandBar"-Objekte wurden in einigen Microsoft Office-Anwendungen durch die neue Menüband-Komponente der Microsoft Office Fluent-Benutzeroberfläche abgelöst. Weitere Informationen finden Sie unter Übersicht über das Office Fluent-Menüband.

Beispiel

Verwenden Sie CommandBars (Index), wobei index der Name oder die Indexnummer einer Befehlsleiste ist, um ein einzelnes CommandBar-Objekt zurückzugeben. Im folgenden Beispiel wird die Auflistung von Befehlsleisten schrittweise durchlaufen, um die Befehlsleiste mit dem Namen "Forms" zu finden. Wenn diese Befehlsleiste gefunden wird, wird sie im Beispiel angezeigt und der Andockzustand wird geschützt. In diesem Beispiel stellt die cb -Variable ein CommandBar -Objekt dar.

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

Verwenden Sie einen Namen oder eine Indexnummer, um eine Menüleiste oder Symbolleiste in der Liste der verfügbaren Menüleisten und Symbolleisten in der Containeranwendung anzugeben. Wenn Sie jedoch ein Menü, ein Kontextmenü oder ein Untermenü angeben möchten (alle werden durch CommandBar-Objekte dargestellt), müssen Sie einen Namen verwenden. In diesem Beispiel wird am unteren Ende des Menüs Extras ein neues Menüelement hinzugefügt. Bei Auswahl führt das neue Menüelement die Prozedur "qtrReport" aus.

Set newItem = CommandBars("Tools").Controls.Add(Type:=msoControlButton) 
With newItem 
    .BeginGroup = True  
    .Caption = "Make Report" 
    .FaceID = 0 
    .OnAction = "qtrReport" 
End With

Wenn mindestens zwei benutzerdefinierte Menüs oder Untermenüs denselben Namen haben, gibt CommandBars(index) das erste zurück. Um sicherzustellen, dass Sie das richtige Menü oder Untermenü zurückgeben, suchen Sie das Popup-Steuerelement, das das Menü anzeigt. Wenden Sie anschließend die Eigenschaft CommandBar auf das Popup-Steuerelement an, um die Befehlsleiste zurückzugeben, die das Menü repräsentiert. Unter der Annahme, dass das dritte Steuerelement auf der Symbolleiste mit dem Namen Benutzerdefinierte Tools ein Popupsteuerelement ist, wird in diesem Beispiel unten im Menü der Befehl Speichern hinzugefügt.

Set viewMenu = CommandBars("Custom Tools").Controls(3) 
viewMenu.Controls.Add ID:=3    'ID of Save command is 3

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.