Office 2007: VBA Code für MouseMove

[Rolf Grob]

Hallo Zusammen,
Ich bin Excel Neuling und habe auch nicht viel Ahnung in VBA.
Ich möchte in einem Arbeitsblatt einen CommandButton mit einem Bild versehen und bei MousMove ein anderes Bild anzeigen.
Ich habe vieles versucht, aber nichts geht, kann mir, jemand auf Verständliche Art und Weise Erklären wie das geht.
Ev. mit Modul oder so, keine Ahnung 
Würde mich freuen
Vielen Dank,
Rolf
rolf_grob@bluewin.ch

[maninweb]

Hallo Rolf Grob,

das Problem mit einem Mouse-Move-Ereignis ist, dass es kein Mouse-Out-Ereignis gibt. Du kannst, um dies zu umgehen, ein
Label hinter den Button setzen. Das Label sollte größer als der Butoon sein. Dann kannst Du folgenden Code verwenden,
den Du an Deine Gegebenheiten anpassen musst.

Code: Visual Basic

1. Dim varImageLoaded As Boolean
2.  
3. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
4.  
5.   If Not varImageLoaded Then
6.  
7.     CommandButton1.Picture = LoadPicture("E:\Temp\edit.bmp")
8.    
9.     varImageLoaded = True
10.    
11.   End If
12.  
13. End Sub
14.  
15. Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
16.  
17.   If varImageLoaded Then
18.    
19.     CommandButton1.Picture = LoadPicture("E:\Temp\disk.bmp")
20.    
21.     varImageLoaded = False
22.    
23.   End If
24.  
25. End Sub
26.  

Gruß

[Rolf Grob]

Hallo Maninweb,
Herzlichen Dank für Deine Lösung, ich werde diese möglichst schnell Ausprobieren.
Gruss Rolf

[Rolf Grob]

Hallo Mainweb,
Noch einmal herzlichen Dank für Deine Hilfe, es funktioniert Supper
Mfg Rolli

[maninweb]

Hallo Rolli,

bitte schön :-)

Gruß