Mouse over effekt - evtl weniger code?
Herbert
Ich habe eine Userform mit mehreren pictures, wenn man mit der Maus drüber geht
wird das Bild auf "" gesetzt und wenn die Maus das Bild wieder Verlässt sollte es wieder auf den Bildpfad gestellt werden.
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Picture = LoadPicture("")
Image2.Picture = LoadPicture(ThisWorkbook.Path & "\images\Balken.jpg")
End Sub
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image2.Picture = LoadPicture("")
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\images\Balken.jpg")
End Sub
Davon habe ich 13 Stück Image1 - 13
Gibt es eine Möglichkeit das besser hinzubekommen?
Weil ich ja jetzt in jeder MouseMove geschichte 14Zeilen schreiben müsste
14x13 = 182...
Und schneller wird es dadurch ja auch nicht.
Habt ihr eine effizienteren Weg?
Wäre euch sehr dankbar
Anzeige