Freigeben über

CommandBars.ActionControl-Eigenschaft (Office)

  • Artikel

Ruft das CommandBarControl -Objekt, dessen OnAction -Eigenschaft auf die laufende Prozedur festgelegt ist. Schreibgeschützt.

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.

Syntax

Ausdruck. ActionControl

Ausdruck Eine Variable, die ein CommandBars-Objekt darstellt.

Beispiel

In diesem Beispiel wird eine Befehlsleiste mit dem Namen Benutzerdefiniert erstellt, drei Schaltflächen hinzugefügt und anschließend die ActionControl-Eigenschaft und die Tag-Eigenschaft verwendet, um zu bestimmen, auf welche Befehlsleistenschaltfläche zuletzt geklickt wurde.

Set myBar = CommandBars _ 
    .Add(Name:="Custom", Position:=msoBarTop, _ 
    Temporary:=True) 
Set buttonOne = myBar.Controls.Add(Type:=msoControlButton) 
With buttonOne 
    .FaceId = 133 
    .Tag = "RightArrow" 
    .OnAction = "whichButton" 
End With 
Set buttonTwo = myBar.Controls.Add(Type:=msoControlButton) 
With buttonTwo 
    .FaceId = 134 
    .Tag = "UpArrow" 
    .OnAction = "whichButton" 
End With 
Set buttonThree = myBar.Controls.Add(Type:=msoControlButton) 
With buttonThree 
    .FaceId = 135 
    .Tag = "DownArrow" 
    .OnAction = "whichButton" 
End With 
myBar.Visible = True

Die folgende Subroutine reagiert auf die OnAction -Methode und bestimmt, welche Befehlsleistenschaltfläche zuletzt geklickt hat.

Sub whichButton() 
Select Case CommandBars.ActionControl.Tag 
    Case "RightArrow" 
        MsgBox ("Right Arrow button clicked.") 
    Case "UpArrow" 
        MsgBox ("Up Arrow button clicked.") 
    Case "DownArrow" 
        MsgBox ("Down Arrow button clicked.") 
End Select 
End Sub

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.