Evento Click
Ocurre cuando el usuario hace clic en un objeto CommandBarButton.
Private Sub CommandBarButton_Click
(ByVal Ctrl As CommandBarButton,
ByVal CancelDefault As Boolean)
La sintaxis del evento Click incluye los dos argumentos descritos en la siguiente tabla.
| Argumento | Descripción |
|---|---|
| Ctrl | CommandBarButton requerido. Alude al control CommandBarButton que inició el evento. |
| CancelDefault | Boolean requerido. False si se produce el comportamiento predeterminado asociado con el control CommandBarButton, salvo que sea cancelado por otro proceso o complemento. |
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, asigne la variable al control.
Ejemplo
El ejemplo siguiente crea un nuevo botón de barra de comandos en el menú Archivo de la aplicación host, que permite que el usuario guarde un libro como un archivo de valores separados por comas. Este ejemplo funciona en todas las aplicaciones, pero el contexto de guardar como CSV es aplicable 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
On Error GoTo errHandler
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
Exit Sub
errHandler:
' Insert error handling code here
End Sub