Propriedade CommandBarControl.Tag (Office)

Artigo
04/07/2023

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.

Observação

[!OBSERVAçãO] O uso de CommandBars em alguns aplicativos do Microsoft Office foi substituído pelo novo componente da faixa de opções da interface de usuário do Microsoft Office Fluent. Para obter mais informações, consulte Visão geral da faixa de opções fluente do Office.

Sintaxe

expressão. Tag

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 disparadas com eventos, defina a propriedade Tag 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 marca do botão na barra de comandos personalizada como Botão ortográfico e exibe a marca em uma caixa de mensagem.

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

Confira também

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.

Compartilhar via