Estoy tratando deguardar para archivar una imagen redimensionada Cargado conLoadPicture. Con el siguiente código, cargo la imagen y la cambio de tamaño, pero ahora entendí queMe.Image1.Width cambia el tamaño de la imagen aimage box control solo con fines de visualización.

Si guardo la imagen consavepicture() la imagen guardada es la misma que la imagen cargada.

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