Cual es el código para cambiar el color de varios command button al pasar el mouse sobre uno de ellos
Tengo en una hoja de Excel cuatro CommandButton y necesito que al pasar el cursor sobre el alguno de ellos cambie de color (p.e. Azul) y que los otros tres se pinten de color (p.e. Naranja) y así para cada uno, es decir si el commandButton1 es azul los otros tres sean naranjas, si el commandbutton2 es azul los otros tres sean naranjas y así sucesivamente... Y que cuando ya no este el cursor o mouse sobre ninguno regresen a su color original, que en este caso seria naranja. Me pueden ayudar por favor a saber cual es el código que debo emplear
1 respuesta
Estas son las instrucciones para darle color azul y naranja:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &HFF0000
CommandButton2.BackColor = &H80FF&
CommandButton3.BackColor = &H80FF&
End Sub
'
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &H80FF&
CommandButton2.BackColor = &HFF0000
CommandButton3.BackColor = &H80FF&
End Sub
'
Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &H80FF&
CommandButton2.BackColor = &H80FF&
CommandButton3.BackColor = &HFF0000
End Sub
Para volver a su color original debes colocar las mismas instrucciones con valor:
&H8000000F en el evento Worksheet_SelectionChange.
También podes volver todo a su color normal cuando ejecutes alguno de estos botones, por ej para el botón 1:
Private Sub CommandButton1_Click()
CommandButton1.BackColor = &H8000000F
CommandButton2.BackColor = &H8000000F
CommandButton3.BackColor = &H8000000F
MsgBox "Ejecutando Botón 1"
End Sub
Ajusta los nombres de tus botones según cómo los tengas en tu hoja.
