Compartilhar via

Evento CommandBarButton.Click (Office)

  • Artigo

Ocorre quando o usuário clica em um objeto CommandBarButton.

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. Clique em(Ctrl, CancelDefault)

Expressão Uma variável que representa um objeto CommandBarButton .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Ctrl Obrigatório CommandBarButton Representa um botão CommandBar .
CancelDefault Obrigatório Boolean É False se o comportamento padrão associado aos controles CommandBarButton ocorrer, a menos que seja cancelado por outro processo ou suplemento.

Comentários

O evento Click é reconhecido pelo objeto CommandBarButton. Para retornar o evento Click para um determinado controle CommandBarButton, use a palavra-chave WithEvents para declarar uma variável e, em seguida, defina a variável ao controle.

Exemplo

O exemplo a seguir cria um botão de barra de comando no menu Arquivo do aplicativo host que permite ao usuário salvar pastas de trabalho como um arquivo de valores separados por vírgulas. (Este exemplo funciona em todos os aplicativos, mas o contexto de salvar como CSV é aplicável ao Microsoft Excel.)

Private HostApp As Object 
 
Sub createAndSynch() 
    Dim iIndex As Integer 
    Dim iCount As Integer 
    Dim fBtnExists As Boolean 
     
    Dim obCmdBtn As Object 
    Dim btnSaveAsCSVHandler as new Class1 
          
    Set HostApp = Application 
     
    Dim barHelp As Office.CommandBar 
    Set barHelp = Application.CommandBars("File") 
    fBtnExists = False  
    iCount = barHelp.Controls.Count 
    For iIndex = 1 To iCount 
        If barHelp.Controls(iIndex).Caption = "Save As CSV (Comma Delimited)" Then fBtnExists = True  
     
    Next 
    Dim btnSaveAsCSV As Office.CommandBarButton 
    If fBtnExists Then 
        Set btnSaveAsCSV = barHelp.Controls("Save As CSV (Comma Delimited)") 
    Else 
        Set btnSaveAsCSV = barHelp.Controls.Add(msoControlButton) 
        btnSaveAsCSV.Caption = "Save As CSV (Comma Delimited)" 
    End If 
     
    btnSaveAsCSV.Tag = "btn1" 
    btnSaveAsCSVHandler.SyncButton btnSaveAsCSV 
End Sub

Confira também

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.