Größe von hochgeladenen Bildern beschränken
27.08.2018 22:05:13
hochgeladenen
ich lasse Anwender per Makro Bilder in eine Excel-Datei laden. Kann mir jemand sagen, wie ich die Bildgröße beschränken kann?
Anbei der Code:
Private Sub CommandButton2_Click()
Dim bem
bem = MsgBox("Es können Bilder der Formate .jpg .bmp und .gif. geladen werden. Die_ _
Bilder werden dem Platz angepasst - sie sollten deshalb hochkant_
abgespeichert sein.", vbOKCancel, "Hinweis")
If bem = vbOK Then
Dim b As String
Image1.Visible = True
b = Application.GetOpenFilename("Bild-Dateien(*.jpg;*.bmp;*.gif),*.jpg, *.bmp,*.gif")
On Error GoTo Fehler
Worksheets("Deckblatt").Image1.Picture = LoadPicture(b)
Fehler:
Else: End If
End Sub
Anzeige