eu estou tentandosalvar para arquivar uma imagem redimensionada carregado comLoadPicture. Com o código a seguir, carrego a imagem e a redimensiono, mas agora entendi queMe.Image1.Width redimensiona a imagem noimage box controle apenas para fins de exibição.

Se eu salvar a imagem comsavepicture() a imagem salva é igual à imagem carregada.

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