Ich versuche zuSpeichern, um ein verkleinertes Bild abzuspeichern geladen mitLoadPicture. Mit dem folgenden Code lade ich das Bild und verändere die Größe, aber ich verstehe jetzt, dassMe.Image1.Width Ändert die Größe des Bildes in dasimage box Steuerelement nur für Anzeigezwecke.

Wenn ich das Bild mit @ speichesavepicture() Das gespeicherte Bild entspricht dem geladenen Bild.

Private Sub CommandButtonImage_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select a image"
        .Filters.Add "Image", "*.gif; *.jpg; *.jpeg; *.png", 1
        If .Show = -1 Then
            ' file has been selected

            ' fit image into image box
            Me.Image1.PictureSizeMode = fmPictureSizeModeZoom

            ' display preview image in an image control
            Me.Image1.Picture = LoadPicture(.SelectedItems(1))

            ' resize image
            Me.Image1.Width = 50

        Else
            ' something    
        End If
    End With
End Sub