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.Tag
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)