Я пытаюсьсохранить в файл с измененным размером изображения загруженLoadPicture, С помощью следующего кода я загружаю изображение и изменяю его размер, но теперь я понял, чтоMe.Image1.Width изменяет размер изображения вimage box контроль только для отображения.

Если я сохраню изображение сsavepicture() сохраненное изображение совпадает с загруженным изображением.

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