Cambiar el Label de color al pasar el mouse
Publicado por eligo alvarez (1 intervención) el 26/08/2018 15:16:23
'Estos códigos funcionan solo sobre un UserForm CON EL EVENTO MouseMove, lo copian ahi con los label y los botones con que están hecho, lo Prueban y modifican a su gusto.... QUIERO HACER LO MISMO PERO SOBRE FORMAS SOBRE LA HOJA EXCEL
1
2
3
4
5
6
7
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 AZUL
CommandButton1.BackColor = &HFF7F50
End Sub
1
2
3
4
5
6
7
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
1
2
3
4
5
6
7
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Cambia el color del Label AZUL
Label1.BackColor = &HFF7F50
End Sub
1
2
3
4
5
6
7
8
9
10
11
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
Label1.BackColor = &H8000000F
End Sub
Valora esta pregunta
0
