Cambiar de color del botón al pasar el mouse por encima

Por

En un formulario con varios botones podemos hacer que el botón cambie de color cuando se pasa el mouse por encima.

Así se vería el userform cuando se ejecuta

cambiar-color-boton-formulario-1

Si pasamos el mouse por encima del Botón1 se vería así:

cambiar-color-boton-formulario-2

Lo mismo, si se pasa el mouse por encima del Botón2, en automático el Botón1 regresa a su color original y el Botón2 cambia a colore verde.

cambiar-color-boton-formulario-3

Para crear el formulario y logra ese efecto, sigue los siguientes pasos:

Instrucciones para crear un UserForm

  1. Abre tu hoja de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / UserForm
  4. En el panel del UserForm creas los siguientes controles un Label, un ListBox y un botón.
  5. Para crear un control selecciona el control del cuadro de herramientas y arrástralo al userform

cambiar-color-boton-formulario-4

  1. Después de poner el control puedes hacerlo más grande.
  2. Presiona el botón "Ver Código"

cambiar-color-boton-formulario-5

  1. En el panel que te abre, pega el siguiente código:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'Cambia el color del botón a verde

CommandButton1.BackColor = &H80FF80

End Sub

'
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'Cambia el color del botón a verde

CommandButton2.BackColor = &H80FF80

End Sub
'
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'Cambia el color de los botones a gris

CommandButton1.BackColor = &H8000000F

CommandButton2.BackColor = &H8000000F

End Sub
  1. Regresa a tu hoja de excel y realiza lo siguiente para poner un botón en una hoja y poder abrir el formulario.

Sigue las Instrucciones para un botón y ejecutar la macro

  1. Abre tu libro de Excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. Ahora para crear un botón, puedes hacer lo siguiente:
  6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
  7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
  8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
  9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: abrir
  10. Para ejecutarla dale click a la imagen.

Macro para abrir el formulario

Sub Abrir()

UserForm1.Show

End Sub

Listo, presiona el botón de la hoja para ejecutar el userform.

Descargar archivo de ejemplo.

Contenido relacionado:
Gerencie.com en su correo.

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


Déjenos su opinión

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo con respeto, sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.