ユーザーフォームへの画像の選択/アップロード

Question

イメージボックスを持つユーザーフォームを作成しています。ユーザーがボックスをクリックすると、ファイルを参照することができます。理想的には、ユーザーがプロパティに移動しなくても写真をアップロードできるようにしたいと考えています。 ImageBox.Picture = LoadPicture（PicPath）を使ってファイルをimageboxにアップロードしようとしましたが、424エラーが発生します。これに関するいかなる助力も非常に高く評価されます。これは私がこれまで持っているものです：クレジットが原因である

Private Sub Screenshot_Click() 

Dim fd As FileDialog 
Dim PicPath As String 

Set fd = Application.FileDialog(msoFileDialogFilePicker) 
With fd 
.AllowMultiSelect = False 
If .Show = -1 Then 
PicPath = .SelectedItems(1) 
ImageBox.Picture = LoadPicture(PicPath) 
Else: Exit Sub 
End If 
End With 

End Sub 

Answer 1

クレジット：vbaexpressフォーラムのおかげccollins48！ （）

Dim PictFileName As String 
PictFileName = Application.GetOpenFilename 
PicPath = PictFileName 

If Len(Dir(PicPath)) = 0 Then 
MsgBox PicPath & "Error" 
Else 
Me.Screenshot.Picture = LoadPicture(PicPath) 
Me.Repaint 
End If 
End Sub 

書式3 fmPictureSizeModeZoom

に

プライベートサブScreenshot_Click