Propriedade CommandBarControl.Tag (Office)

Obtém ou define informações sobre o CommandBarControl, como dados que podem ser usados como um argumento em procedimentos ou informações que identifiquem o controle. Leitura/gravação.

Sintaxe

expressão. Etiqueta

expressão Uma variável que representa um objeto CommandBarControl .

Valor de retorno

Cadeia de caracteres

Exemplo

Para evitar chamadas duplicadas da mesma classe quando acionadas com eventos, defina a propriedade Etiqueta exclusiva para os eventos. O exemplo a seguir demonstra esse conceito com dois 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

Este exemplo define a etiqueta do botão na barra de comando personalizada como Botão ortográfico e apresenta a etiqueta numa caixa de mensagem.

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

Confira também

• CommandBarControl object members (Membros do objeto CommandBarControl)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.