CommandBarControl.Tag-Eigenschaft (Office)

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.

Syntax

Ausdruck verwendet werden. Taggen

Ausdruck Eine Variable, die ein CommandBarControl-Objekt darstellt.

Rückgabewert

Zeichenfolge

Beispiel

Um doppelte Aufrufe derselben Klasse beim Auslösen mit Ereignissen zu vermeiden, definieren Sie die für die Ereignisse eindeutige Tag-Eigenschaft. 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 "Rechtschreibtaste " festgelegt und in einem Meldungsfeld angezeigt.

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

Siehe auch

• CommandBarControl-Objektmember

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.