Compartir a través de

Propiedad CommandBarControl.Tag (Office)

  • Artículo

Obtiene o establece información sobre el control CommandBarControl, por ejemplo, datos que pueden utilizarse como argumentos en procedimientos y la información que identifica el control. Lectura y escritura.

Nota:

El uso de CommandBars en algunas aplicaciones de Microsoft Office sustituido por el nuevo componente cinta de la interfaz de usuario de Microsoft Office Fluent. Para obtener más información, vea Información general de la cinta de opciones de Office Fluent.

Sintaxis

expresión. Etiqueta

Expresión Variable que representa un objeto CommandBarControl .

Valor devuelto

String

Ejemplo

Para evitar llamadas duplicadas de la misma clase cuando se desencadenan con eventos, defina la propiedad Tag única para los eventos. En el siguiente ejemplo se muestra 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

En este ejemplo se establece la etiqueta del botón de la barra de comandos personalizada en Botón de ortografía y se muestra la etiqueta en un cuadro de mensaje.

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

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.