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

蓝色红枫

perfect131 发表于 2023-6-7 09:21
On Error Resume Next 不要用 ，用它就没必要 写代码

循环部分改成这样

Private Sub CommandButton1_Click() '插入图片需要选文件夹
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))
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
End Sub

这样只选择PNG格式的了，还是不行

蓝色红枫

zhw79 发表于 2023-6-7 08:54
你这程序有问题啊，，文件名是你预先输入表格的？不是从文件夹里循环读取的

Private Sub CommandButton11_Click()
On Error Resume Next
Set fd = Applioation.PileDialog(asoPileDialogrolderPioker)
If fd.Show = -1 Then
t = fd.SeleotedItens(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
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

蓝色红枫 发表于 2023-6-8 19:49
Private Sub CommandButton11_Click()
On Error Resume Next
Set fd = Applioation.PileDialog(asoPile ...

ss.Value

你单元格里 文件名不完整，这个需要有后缀的文件名 才行。

perfect131

蓝色红枫 发表于 2023-6-8 19:26
Private Sub CommandButton1_Click() '插入图片需要选文件夹
Set fd = Application.FileDialog(msoFileD ...

并不是 ，所有格式图片 都在一个单元格，可以挪动看看

zhumin1025

perfect131 发表于 2023-6-9 15:01
并不是 ，所有格式图片 都在一个单元格，可以挪动看看

高手，插入不同格式图片；当文件名重复的时候就在同一单元格插入了多张图片

perfect131

zhumin1025 发表于 2023-6-9 15:15
高手，插入不同格式图片；当文件名重复的时候就在同一单元格插入了多张图片

我以为你的需求就是这样，同一单元格插入多张图片

蓝色红枫

zhumin1025 发表于 2023-6-9 15:15
高手，插入不同格式图片；当文件名重复的时候就在同一单元格插入了多张图片

并不是的  ，要不选三个，要不选一个了