Bild bei Mouseover durch makro ändern

Forumthread: Bild bei Mouseover durch makro ändern
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bild bei Mouseover durch makro ändern

15.02.2007 10:16:00

Ano

Hallo,
folgendes Problem:
Wenn ich ein Label mit dem Cursor berühre soll im Toolboxelement "Bild" ein anderes Bild angezeigt werden.
Ich habe mir das folgendermaßen vorgestellt:
If Label.MouseMove = True Then
...
End If
Ich weiß nur nicht wie ich auf das Bildsteuerelement zugreifen kann.
Eine Makroaufzeichnung brachte kein Ergebnis.
MfG
Dennis

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild bei Mouseover durch makro ändern

15.02.2007 11:15:00

Rudi
AW: Bild bei Mouseover durch makro ändern

15.02.2007 11:17:00

Hoffi
AW: Bild bei Mouseover durch makro ändern

15.02.2007 12:16:00

Ano

AW: Bild bei Mouseover durch makro ändern

15.02.2007 11:15:00

Rudi

Hallo,


Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Image1.Picture = LoadPicture("c:\temp\test.jpg")
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Bild bei Mouseover durch makro ändern

15.02.2007 11:17:00

Hoffi

Hallo,
bei Image aus der Steuerelemte Toolbox:

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheets(1).Image1.Picture = LoadPicture("C:\Bild1.jpg")
End Sub

Grüße
Hoffi

AW: Bild bei Mouseover durch makro ändern

15.02.2007 12:16:00

Ano

Hallo Rudi,
Das hat mir jetzt schon sehr weitergeholfen.
Wenn ich CLICK anstatt MOUSEMOVE verwende, funktioniert auch alles genau so wie ich es mir vorgestellt habe.
Allerdings springt das Makro bei der Verwendung von MOUSEMOVE bei der Berührung irgendeines Label (oder einem anderen Steuerelement) an. Also nicht NUR bei dem Label bei dem es eigentlich ausgeführt werden soll.
MfG
Dennis

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!