Bilder skalieren in Userfom Image-Fenster
10.09.2003 16:51:49
Lars
Ich möchte in meine Userform in einem Image verschiedene Bilder anzeigen lassen. Diese sollen aber an die Abmessungen des Image-Fensters in der Userfom angepasst werden. Mit meinem Makro funktioniert das aber nicht.
Wer kann helfen ???
Danke im Voraus !!!
Private Sub Combobox3_Change()
If Combobox3.Text = "test"And Combobox2.Text = "Extra" Then
Image2.picture = LoadPicture("C:\Dokumente und Einstellungen\lars\Eigene Dateien\Eigene Bilder\Pictures\Bild.jpg")
With picture
.height = Image2.height
.width = Image2.width
End With
End If
End Sub
Code eingefügt mit Syntaxhighlighter 2.4
Anzeige