Controles ActiveX: Botón de Alternancia (Programando Código VBA)

Ahora veamos cómo aplicar un poco de código VBA sobre el control ActiveX Botón de Alternancia. Estando en Modo Diseño, damos clic derecho sobre el control y seleccionamos la opción Ver código. Con esto se abre el editor de VBA:

Imagen 1

En el cuadro de Objetos marcado en Rojo tenemos ToggleButton1 que es el nombre interno que tiene el Botón de Alternancia. En el cuadro de Eventos marcado en Azul tenemos el evento Click que corresponde al evento dar Clic sobre el botón; esto indica que la macro que ingresemos, se ejecutará una vez se dé un clic al botón.

Al ingresar a esta ventana de código del Cuadro alternancia, Excel agrega por defecto el código de inicio y de fin de la macro que se ejecutará desde dicho control. Lo podemos ver en la parte blanca de la derecha del Editor de Visual Basic:

Imagen 2

  1. Private Sub ToggleButton1_Click(): Es la línea inicial de la macro, indica que tenemos una Subrutina (Private Sub) que se asocia para el Botón de alternancia (ToggleButton1) y se ejecutará una vez se dé un clic sobre dicho control
  2. End Sub: Es la línea que marca el fin de la macro o de la Subrutina (End Sub)

Significa entonces que el código que ingresemos ENTRE estas dos líneas es el que se ejecutará una vez se dé un Clic sobre el Botón de Alternancia (ToggleButton1).

Veamos el listado de Eventos que tenemos a disposición de este control. Para ello, damos clic en la pestaña del cuadro de eventos:

Imagen 3

Vemos que podemos ejecutar una macro ya sea en el evento Clic, o doble Clic o al cambiar o antes de dar copiar y pegar entre otros. Para nuestro ejemplo vamos a ejecutar una macro para el evento Click y el código a ejecutar es el siguiente:

If ToggleButton1.Value = True Then MsgBox "El Botón esta Activo"

If ToggleButton1.Value = False Then MsgBox "El Botón esta Inactivo"

Imagen 4

Lo que estamos programando en la primera línea es que una vez se dé el primer Clic al botón “Estado” (ToggleButton1.Value = True), nos muestre un mensaje con el texto “El botón esta activo “. En la segunda línea estamos programando que se muestre un mensaje en caso de que del botón de alternancia se dé clic nuevamente (ToggleButton1.Value = False) muestre el mensaje “El Botón esta Inactivo"

 

 

 

Ahora vamos a la hoja Excel, desactivamos el Modo Diseño y vamos a probar el control:

Descargar archivo de trabajo.

MÁS SOBRE

Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Siéntase libre de opinar

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc. Lo que no está permitido es insultar o escribir palabras ofensivas o soeces. Si lo hace, su comentario será rechazado por el sistema o será eliminado por el administrador. Por último, trate de no escribir en mayúscula sostenida, resulta muy difícil leerle.