代码只能插入JPG格式图片，要多种格式图片都可以插入咋写啊！多谢大神指点！

蓝色红枫

我这是个宏按钮，下面代码之能插入JPG格式图片，要插入BPM PNG GIF jpeg格式咋写啊？谢谢大神指点！！
Private Sub CommandButton1_Click() '插入图片需要选文件夹
On Error Resume Next
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then
t = fd.SelectedItems(1)
Else
MsgBox "未选择文件夹，程序结束"
Exit Sub
End If
Dim ss As Range, sp As Shape
For Each sp In ActiveSheet.Shapes
If sp.Type <> 12 Then
sp.Delete
End If
Next sp
For Each ss In Range("a2", Cells(Rows.Count, 1).End(xlUp))
dz = t & "\" & ss.Value & ".jpg"
Z = ss.Offset(0, 1).Left
d = ss.Offset(0, 1).Top
k = ss.Offset(0, 1).Width
g = ss.Offset(0, 1).Height
ActiveSheet.Shapes.AddPicture dz, 1, 1, Z, d, k, g
Next ss
End Sub

zpy2

把文件后缀名统一成.jpg行吗

盼盼198310

dz = t & "\" & ss.Value & ".*"  换成这个试试

zpy2

盼盼198310 发表于 2023-6-6 07:53
dz = t & "\" & ss.Value & ".*"  换成这个试试

ActiveSheet.Shapes.AddPicture dz, 1, 1, Z, d, k, g

有这句，通配符不行吧

蓝色红枫

盼盼198310 发表于 2023-6-6 07:53
dz = t & "\" & ss.Value & ".*"  换成这个试试

试了 没反应啊！

蓝色红枫

zpy2 发表于 2023-6-6 07:37
把文件后缀名统一成.jpg行吗

把文件后缀名统一成.jpg可以，有不同的图片改了怕再别处编辑出问题

蓝色红枫

zpy2 发表于 2023-6-6 10:41
ActiveSheet.Shapes.AddPicture dz, 1, 1, Z, d, k, g

有这句，通配符不行吧

运行时候可以运行下去，就是别的格式图片显示不出来

zhw79

你这程序有问题啊，，文件名是你预先输入表格的？不是从文件夹里循环读取的

perfect131

On Error Resume Next 不要用 ，用它就没必要 写代码

循环部分改成这样
For Each ss In Range("a2", Cells(Rows.Count, 1).End(xlUp))
for each kk in [{"bpm","png","gif","jpeg"}]
dz = t & "\" & ss.Value & "." & kk
if dir(dz,16)<>empty then  ''判断有没有这个文件
Z = ss.Offset(0, 1).Left
d = ss.Offset(0, 1).Top
k = ss.Offset(0, 1).Width
g = ss.Offset(0, 1).Height
ActiveSheet.Shapes.AddPicture dz, 1, 1, Z, d, k, g
end if
NEXT
Next ss

xyxcc177

Application.FileDialog(msoFileDialogFilePicker)