Selecting/Uploading 图片到用户表单

Question

我正在创建一个带有图像框的用户表单。当用户单击该框时，它具有浏览文件的功能。理想情况下，我希望用户无需导航到“属性”即可上传图片。我尝试 ImageBox.Picture = LoadPicture(PicPath) 将文件上传到图像框，但出现 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！

私人订阅 Screenshot_Click()

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

Selecting/Uploading 图片到用户表单

Selecting/Uploading Image to Userform

macros

userform