Compartir a través de

Evento CommandBarButton.Click (Office)

  • Artículo

Se produce cuando el usuario hace clic en un objeto CommandBarButton.

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

Expresión Variable que representa un objeto CommandBarButton .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Ctrl Obligatorio Commandbarbutton Representa un botón CommandBar .
CancelDefault Obligatorio Boolean Es False si se produce el comportamiento predeterminado asociado a los controles CommandBarButton , a menos que otro proceso o complemento lo cancele.

Comentarios

El evento Click es reconocido por el objeto CommandBarButton. Para devolver el evento Click de un control CommandBarButton determinado, utilice la palabra clave WithEvents para declarar una variable y, a continuación, establezca la variable en el control.

Ejemplo:

En el siguiente ejemplo se crea un botón de barra de comandos en el menú Archivo de la aplicación host, que permite que el usuario guarde un libro como archivo de valores separados por comas. (Este ejemplo funciona en todas las aplicaciones, pero el contexto de guardar un archivo como CSV se aplica a 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

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.