Bild als Button nutzen

marspoki · 1970-01-01T00:00:00+00:00

Hallo, habe mal eine Frage. Ich nutze zur Zeit ein Steuerelement (Bild) als Button. Diese sind aber leider wenn ich sie im Excel eingefügt habe immer irgendwie Unscharf obwohl sie in der Normalen "Windows Bild und Fax anzeige" mega scharf dargestellt werden. Was mache ich Falsch? Dann wollte ich mal fragen ob man einen "Hover effekt" (Bildwechel) einbauen kann. Gibts da eine Möglichkeit!? Vielen Dank Sebastian

Hi.
zur Unschärfe kann ich nichts sagen, ist beim mir aber auch so.
Mal als Beispiel für den Bildwechsel:

' Wechselt das Bild beim Drücken
Private Sub Image1_Click()
Static nextPic As Byte
If nextPic = 0 Then
Image1.Picture = LoadPicture("BILD1")
Else
Image1.Picture = LoadPicture("BILD2")
End If
' Ergibt 0 für 1 und 1 für 0
nextPic = Sgn(-nextPic) + 1
End Sub
' Die beiden Subs simulieren den "Einsinkeffekt" beim Klicken
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectSunken
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,  _
ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectRaised
End Sub

Den SpecialEffect mußt Du zu Beginn gleich auf fmSpecialEffectRaised setzen, dann sieht es wie ein Button aus.
BILD1 und BILD2 mußt Du natürlich durch die Pfade der Bilder ersetzen.
Gruss, Jogy

Hi.
Habe eine Lösung gefunden:
Du legst auf einem anderen Tabellenblatt (im Beispiel Tabelle2) die zwei Image-Steuerelemente an, in die Du die Bilder lädst. Diese benennst Du Image1 und Image2 (was es ja automatisch macht). Tabelle2 kannst Du dann ausblenden, Du kannst es sogar im VBE auf xlVeryHidden setzen, geht trotzdem noch (hat den Vorteil, dass es niemand im Excel-Menü einblenden kann).
Und dann nimmst Du folgenden Code:

' Wechselt das Bild beim Drücken
Private Sub Image1_Click()
Static nextPic As Byte
If nextPic = 0 Then
Image1.Picture = Worksheets("Tabelle2").Image1.Picture
Else
Image1.Picture = Worksheets("Tabelle2").Image2.Picture
End If
' Ergibt 0 für 1 und 1 für 0
nextPic = Sgn(-nextPic) + 1
End Sub
' Die beiden Subs simulieren den "Einsinkeffekt" beim Klicken
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
If Button = 1 Then Image1.SpecialEffect = fmSpecialEffectSunken
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,  _
ByVal Y As Single)
If Button = 1 Then Image1.SpecialEffect = fmSpecialEffectRaised
End Sub

Da ist auch noch eine kleine Korrektur in den MouseUp/Down Prozesuren, so dass es nur auf die linke Maustaste reagiert.
Darauf gebracht hat mich ein älteres Posting von Nepomuk, das Axel Meyer für einem Thread knapp drüber ausgegraben hat.
Gruss, Jogy

Forumthread: Bild als Button nutzen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial