Necesito código para que se resalten los botones de una calculadora al posicionar el Mouse.
Amigos pregunto si se puede realizar un código para que se "Resalten" los botones de una calculadora que estoy por hacer en excel, al posicionarse el Mouse sobre cualquier Botón del teclado de la misma, con cualquier color que se elija.
En el ejemplo que envío esta la tecla del numero (6)resaltada con Gris cuando posione el puntero.
Gracias y espero respuesta.
1 Respuesta
Respuesta de James Bond
1
Prueba con esta macro cuando pases el botón sobre el botón de la calculadora este cambiara de color una vez que se retiras el puntero del ratón este vuelve a su color normal
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton1.BackColor = 12713921 End Sub Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton2.BackColor = 12713921 End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) For Each Control In UserForm1.Controls TIPO = UCase(TypeName(Control)) If TIPO = "COMMANDBUTTON" Then Control.BackColor = 13426670 Next Control End Sub
