CommandBarControl.Tag-Eigenschaft (Office)

Artikel
04/07/2023

Ruft ab oder legt diesen fest Informationen zu CommandBarControl-Objekt, wie Daten, die als Argument in Prozeduren verwendet werden können, oder Informationen, die das Steuerelement identifiziert. Lese-/Schreibzugriff.

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. Etikett

Ausdruck Eine Variable, die ein CommandBarControl-Objekt darstellt.

Rückgabewert

Zeichenfolge

Beispiel

Um doppelte Aufrufe derselben Klasse zu vermeiden, wenn sie mit Ereignissen ausgelöst werden, definieren Sie die Tag-Eigenschaft eindeutig für die Ereignisse. Im folgenden Beispiel wird dieses Konzepts mit zwei Modulen.

Public WithEvents oBtn As CommandBarButton 
 
Private Sub oBtn_click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean) 
    MsgBox "Clicked " & ctrl.Caption 
 
End Sub 
 
Dim oBtns As New Collection 
      
Sub Use_Tag() 
     
    Dim oEvt As CBtnEvent 
    Set oBtns = Nothing 
 
    For i = 1 To 5 
        Set oEvt = New CBtnEvent 
        Set oEvt.oBtn = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton) 
        With oEvt.oBtn 
            .Caption = "Btn" & i 
            .Style = msoButtonCaption 
            .Tag = "Hello" & i 
        End With 
        oBtns.Add oEvt 
    Next 
      
End Sub

In diesem Beispiel wird das Tag für die Schaltfläche auf der benutzerdefinierten Befehlsleiste auf Rechtschreibschaltfläche festgelegt und das Tag in einem Meldungsfeld angezeigt.

CommandBars("Custom").Controls(1).Tag = "Spelling Button" 
MsgBox (CommandBars("Custom").Controls(1).Tag)

Siehe auch

Elemente des CommandBarControl-Objekts

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.

Freigeben über