Bilder mit VBA laden
20.03.2008 22:05:53
Christian
ich habe nun schon mehrere Stunden nach einer Lösung für mein Problem gesucht, nun muss ich doch die Community belästigen.
Ich möchte, dass in Abhängigkeit von der Auswahl einer Combo-Box (Kombinationsfeld) in einem Bild-Steuerelement das Bild gewechselt wird.
Ich habe es bereits geschafft, dass mit Hilfe dieser Formel, das Bild bei "Click" wechselt:
Private Sub Image1_Click()
Dim Pfad As String
Pfad = Sheets("Übersicht").Range("J5").Text
Image1.Picture = LoadPicture(Pfad)
End Sub
Ich möchte aber, dass das Bild automatisch wechselt. Ich dachte, dass das mit
Private Sub Image1_Change()
Dim Pfad As String
Pfad = Sheets("Übersicht").Range("J5").Text
Image1.Picture = LoadPicture(Pfad)
End Sub
funktionieren müsste. Aber nein, da passiert nichts. Was mache ich falsch?
Ich würde mich sehr über Hilfe von euch freuen, nachdem ich hier schon fast verzweifelt bin.
Gruß
Chris
Anzeige