Excel-VBA代码，批量插入对应图片

Sub 批量插入图片()

On Error Resume Next‘出现错误继续执行

Dim ss As Range, sp As Shape ‘申明变量

For Each sp In ActiveSheet.Shapes ‘循环当前工作表的所有对象

If sp.Type <> 8 Then ‘判断是否是宏按钮

sp.Delete‘如果不是宏按钮的对象全部删除

End If

Next sp

t = “G:照片”‘照片文件路径

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 ‘Shapes.AddPicture为从现有文件创建图片。 返回一个 Shape 对象。’AddPicture dz, 1, 1, Z, d, k, g，第1个“1”表明要链接至的文件，第2个“1”表明将图片与文档一起保存

Next ss

End Sub