Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bild bei Mouseover durch makro ändern

Forumthread: Bild bei Mouseover durch makro ändern

Bild bei Mouseover durch makro ändern
15.02.2007 09: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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild bei Mouseover durch makro ändern
15.02.2007 10: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
Anzeige
AW: Bild bei Mouseover durch makro ändern
15.02.2007 10: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
Anzeige
AW: Bild bei Mouseover durch makro ändern
15.02.2007 11: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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige