Images per VBA Laden
29.05.2008 22:14:00
Eddie
Aufbau der Bilder:
Sub Bildaufbau()
Dim y&, yn&, imagestring$
Sheets("Viewer").Select
y = 10
For yn = 1 To 20
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, DisplayAsIcon:=False, _
left:=10, Top:=y, Width:=425.25, Height:=282.75).Select
imagestring = "Image" & Trim(Str(yn))
' jetzt möchte ich ein Bild laden und die Image Optionen ändern
y = y + 400
Next yn
End Sub
Nun werden mir die Bilderforms schön nacheinander aufgebaut. Nun möchte ich aber gerne erstens die Einstellungen der Image Forms ändern und zweitens natürlich das Bild laden, das später als Variable kommen soll.
Besonders ist es für mich wichtig, in den Properties den PictureSizeMode auf 3-fmPictureSizeModeZoom zu ändern.
Wie auch immer, mir gelang es nach 20 versuchen, weder das Bild zu laden, noch irgend eine Option der Properties zu ändern.
Methode nicht unterstützt kenne ich jetzt schon auswendig :-(