Curso Excel VBA y Macros – Cap. 50 – Formularios – Control CommandButton ó Botón

<<CURSO COMPLETO EN YOUTUBE>>

Uno de los controles más usados y creo que de los más importantes, es el Botón de comando o CommandButton. Este control simplemente ejecutará macros y procedimientos al presionar clic sobre él.

En este video tutorial veremos las propiedades más comunes del Botón.

  • Default.
  • Cancel.
  • Top.
  • Height.
  • BackColor y ForeColor.
  • ControlTipText.
  • Picture.

Ver video Capítulo 50 Excel VBA & Macros

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Propiedad Default

La propiedad Default del Control CommandButton nos ayudará a definir como predeterminado el botón, es decir, que cuando presionemos la tecla Enter, se activará el botón y se ejecutará la macro asociada al evento Click.

Al asignarle la propiedad Default veremos cómo se le activa borde con sombra al botón. Regularmente esta propiedad se asigna cuando el botón es de tipo Aceptar y Ok.

Propiedad Default del control CommandButton en un UserForm VBA.

Figura 1. Propiedad Default del control CommandButton en un UserForm VBA.

Propiedad Cancel

En prácticamente todos los Formularios tenemos un botón de tipo Cancelar o Cerrar. Cuando le asignamos la propiedad Cancel a uno de estos botones, logramos que al presionar la tecla Escape se active el evento Click del botón y se ejecute una macro para cerrar el formulario o cancelar alguna acción y luego cerrar el formulario.

Propiedad Top

Esta propiedad nos permitirá definir una posición del botón o cualquier control en el formulario. También se puede definir como la distancia entre un control y el borde superior o izquierdo de un formulario.

Propiedad Height

Esta propiedad nos permitirá definir el alto de un Control o un Formulario. Usaremos esta propiedad para cambiarle el tamaño al UserForm.

Propiedad BackColor y ForeColor

La propiedad BackColor nos permite definirle un color de fondo al Control y la propiedad ForeColor nos permite asignarle un color de fuente al texto del Control, el cual está definido en la propiedad Caption.

Propiedad BackColor y Forecolor usada en un CommandButton de un UserForm VBA.

Figura 2. Propiedad BackColor y Forecolor usada en un CommandButton de un UserForm VBA.

Propiedad ControlTipText

Cuando deseamos ayuda adicional, usaremos la propiedad ControlTipText para mostrar un texto cada vez que pasamos el cursor sobre el control.

Propiedad ControlTipText para mostrar ayudas en CommandButton en Formulario VBA.

Figura 3. Propiedad ControlTipText para mostrar ayudas en CommandButton en Formulario VBA.

Propiedad Picture

Al Control CommandButton le asignaremos una imagen en formaro JPG usando la propiedad Picture. Es importante considerar lo siguiente: si asignamos una imagen en la propiedad Picture dentro de la Ventana Propiedades, la imagen se cargará automáticamente al abrir el archivo. En cambio, si usamos la propiedad Picture junto a la función LoadPicture, la imagen deberá existir en una ruta definida.

Ejemplo

En siguiente ejemplo Formulario usaremos el evento Initialize donde usaremos las propiedades Caption, Top, Height, ControlTipText y Picture. Además de lanzar una macro en el evento Click de un botón para cambiar el tamaño al Formulario.

Control CommandButton en un VBA UserForm.

Figura 4. Control CommandButton en un VBA UserForm.

Código VBA del Formulario

Option Explicit

'EXCELeINFO
'MVP Sergio Alejandro Campos
'http://www.exceleinfo.com
'https://www.youtube.com/user/sergioacamposh
'http://blogs.itpro.es/exceleinfo

Private Sub btnCambiarT_Click()

If Me.btnCambiarT.Caption = ">>" Then
    Me.Height = 229
    Me.CommandButton1.Top = 150
    Me.CommandButton2.Top = 150
    Me.btnCambiarT.Caption = "<<"
ElseIf Me.btnCambiarT.Caption = "<<" Then
    Me.Height = 180
    Me.CommandButton1.Top = 120
    Me.CommandButton2.Top = 120
    Me.btnCambiarT.Caption = ">>"
End If

End Sub

Private Sub CommandButton1_Click()
MsgBox "Aceptar"
End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

With Me
    .btnCambiarT.Caption = ">>"
    .CommandButton1.Top = 120
    .CommandButton2.Top = 120
    .Height = 180
    .btnCambiarT.ControlTipText = "Cambiar el tamaño del Formulario"
    '.btnImagen.Picture = LoadPicture("C:\Users\Sergio Campos\Desktop\images.jpg")
End With

End Sub

Descarga el archivo de ejemplo

050 – Forrmularios Control CommandButton Botón – EXCELeINFO.zip

 

<<CURSO COMPLETO EN YOUTUBE>>

Si te gustó este tutorial por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

You may also like...

Leave a Reply

Your email address will not be published.

%d bloggers like this: