|
Souhlasím, mohlo by to jít... Ve vba ve formuláři je commmandbutton1, image1 a image2 s obrázky s nastavenými Picture v návrhu formuláře a událostmi mousemove tlačítka a formuláře střídat obrázky...
Option Explicit
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.Picture = Image2.Picture
End Sub
Private Sub UserForm_Initialize()
With CommandButton1
.Picture = Image1.Picture
.AutoSize = True
End With
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.Picture = Image1.Picture
End Sub
|