Userform Image falsche Größe
13.09.2021 13:35:27
Henry
ich hoffe ihr könnt mir weiterhelfen.
Ich lade mit dem folgenden Code ein Bild in eine ImageBox meiner Userform:
Private Sub UserForm_Initialize()
With Image1
.Picture = LoadPicture("C:\Test\Bild1.jpg")
End With
End Sub
Das Bild passt allerdings nur in die ImageBox, wenn ich die Userform von meinem 14 Zoll Notebook starte.
Wenn ich die Userform von meinem 12 Zoll Notebook starte, wird das Bild in der ImageBox viel zu groß dargestellt.
Ich habe versucht das Bild an die ImageBox anzupassen mit:
PictureSizeMode = fmPictureSizeModeZoom
Das klappt zwar, allerdings wird dadurch die Bildqualität extrem schlecht.
Eine weitere Möglichkeit wäre, die Imagebox an die Bildgröße anzupassen.
Hierdurch würde die ImageBox aber viel zu groß werden.
Hat jemand eine Idee wie ich das Bild (trotz verschiedener Bildschirmgrößen) immer passend in die ImageBox laden kann?
Für eure Hilfe bin ich euch dankbar!
Anzeige