Mostrar todo

Propiedad Tag

Devuelve o establece la información acerca del control de barra de comandos, por ejemplo, los datos que pueden utilizarse como argumentos en procedimientos y la información que identifica el control. String de Lectura/Escritura.

expresión   Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.

Comentarios

Para evitar llamadas duplicadas de la misma clase cuando se activa con eventos, defina la propiedad Tag como exclusiva en los eventos. El siguiente ejemplo demuestra este concepto mediante dos módulos.

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

Ejemplo

Este ejemplo establece el rótulo para el botón de la barra de comandos en "Spelling Button" y lo muestra en un cuadro de mensaje.

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