CommandBarButton.Tag-Eigenschaft (Office)CommandBarButton.Tag property (Office)

Dient zum Abrufen oder Festlegen von Informationen über das CommandBarButton -Steuerelement, wie Daten, die als Argument in Prozeduren verwendet werden können, oder Informationen, die das Steuerelement identifiziert.Gets or sets information about the CommandBarButton control, such as data that can be used as an argument in procedures, or information that identifies the control. Lese-/Schreibzugriff.Read/write.

Hinweis

[!HINWEIS] "CommandBar"-Objekte wurden in einigen Microsoft Office-Anwendungen durch die neue Menüband-Komponente der Microsoft Office Fluent-Benutzeroberfläche abgelöst.The use of CommandBars in some Microsoft Office applications has been superseded by the new ribbon component of the Microsoft Office Fluent user interface. Weitere Informationen finden Sie unter Übersicht über das Office Fluent-Menüband.For more information, see Overview of the Office Fluent ribbon.

SyntaxSyntax

Ausdruck. Tagexpression.Tag

Ausdruck Eine Variable, die ein CommandBarButton -Objekt darstellt.expression A variable that represents a CommandBarButton object.

RückgabewertReturn value

StringString

BeispielExample

Legen Sie zum Vermeiden von doppelten Aufrufe von der gleichen Klasse mithilfe von Ereignissen ausgelöst, die eindeutige Tag -Eigenschaft für die Ereignisse.To avoid duplicate calls of the same class when triggered with events, define the Tag property unique to the events. Im folgenden Beispiel wird dieses Konzepts mit zwei Modulen.The following example demonstrates this concept with two modules.

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 die Schaltfläche Rechtschreibung und das Tag in einem Meldungsfeld angezeigt.This example sets the tag for the button on the custom command bar to Spelling Button and displays the tag in a message box.

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

Siehe auchSee also