Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Rolf Grob am November 06, 2013, 17:33:56 Nachmittag

Titel: Office 2007: VBA Code für MouseMove
Beitrag von: Rolf Grob am November 06, 2013, 17:33:56 Nachmittag
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 ;D
Vielen Dank,
Rolf
rolf_grob@bluewin.ch
Titel: Antw:Office 2007: VBA Code für MouseMove
Beitrag von: maninweb am November 08, 2013, 09:59:56 Vormittag
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ß
Titel: Antw:Office 2007: VBA Code für MouseMove
Beitrag von: Rolf Grob am November 08, 2013, 19:43:59 Nachmittag
Hallo Maninweb,
Herzlichen Dank für Deine Lösung, ich werde diese möglichst schnell Ausprobieren.
Gruss Rolf
Titel: Antw:Office 2007: VBA Code für MouseMove
Beitrag von: Rolf Grob am November 08, 2013, 21:56:48 Nachmittag
Hallo Mainweb,
Noch einmal herzlichen Dank für Deine Hilfe, es funktioniert Supper :D
Mfg Rolli
Titel: Antw:Office 2007: VBA Code für MouseMove
Beitrag von: maninweb am November 09, 2013, 09:44:12 Vormittag
Hallo Rolli,

bitte schön :-)

Gruß