这是一段插入图片的代码，不知为何这行刷不过去。

xqgg2007

Sub Prod_AttachPIC()   '添加图片

Dim PicFile As FileDialog
With Sheet1
Set PicFile = Application.FileDialog(msoFileDialogFolderPicker)
With PicFile
    .Title = "选择展示图片"
    .Filters.Add "所有图片格式", "*.jpg, *.jpeg, *.gif, *.png, *.bmp, *.tiff", 1
    If .Show <> -1 Then GoTo NoSelect
    Sheet1.Range("O14").Value = .SelectedItems(1)
End With
If .Range("B7").Value = False Then Sheet2.Range("K" & Sheet1.Range("B6").Value).Value = .Range("O14").Value
Prod_DisplayPIC

NoSelect:
End With
End Sub

xqgg2007

请高手帮个忙，看一下哪里的问题？

smsn

msoFileDialogFolderPicker   fold 选择文件夹
msoFileDialogFilePicker  file 选择文件，文件才有.Filters.Add

xqgg2007

smsn 发表于 2023-1-29 11:53
msoFileDialogFolderPicker   fold 选择文件夹
msoFileDialogFilePicker  file 选择文件，文件才有.Filter ...

高手啊

chenyun1234

看不懂，这是啥意思

xqgg2007

chenyun1234 发表于 2023-1-29 13:56
看不懂，这是啥意思

这段代码是用来插入图片的，我写代码时把msoFileDialogFilePicker不小心写成msoFileDialogFolderPicke，导致程序无法运行。