UserForm中显示图片报错'438'：对象不支持该属性或方法

错误原因分析 #

• 变量拼写错误：代码中声明了Dim img As String，但赋值时写成了ing = NameImg.Value + ".jpg"，导致img变量为空，最终拼接的图片路径无效。
• 图片控件赋值方式错误：VBA的Image控件不能直接赋值，必须通过Picture属性来设置图片，直接ImgControl = LoadPicture(...)会触发“对象不支持该属性或方法”的438错误。
• 字符串拼接风险：使用+拼接字符串，若其中包含数字类型内容会导致错误，建议用&进行字符串拼接更稳妥。

修正后的代码 #

Private Sub Show_Click()
    Dim show_img As String
    Dim img As String
    ' 修正变量名拼写错误，用&拼接字符串
    img = NameImg.Value & ".jpg"

    ' 用&拼接路径，避免类型冲突
    show_img = img_path.Text & img
    ' 正确设置Image控件的Picture属性
    ImgControl.Picture = LoadPicture(show_img)
End Sub

Private Sub Select_Click()
    Dim diaFolder As FileDialog
    Dim path As String
    
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.AllowMultiSelect = False
    diaFolder.Title = "Select a Directory"
    
    If diaFolder.Show = -1 Then
        path = diaFolder.SelectedItems(1)
        ' 用&拼接路径分隔符，避免+的潜在问题
        path = path & "\"
        img_path.Text = path
    End If
    
    Set diaFolder = Nothing
End Sub

额外建议 #

可以添加路径有效性检查，避免因文件不存在导致的错误：

If Dir(show_img) <> "" Then
    ImgControl.Picture = LoadPicture(show_img)
Else
    MsgBox "图片文件不存在！"
End If

内容的提问来源于stack exchange，提问作者Nir4s