Question

EXCEL批量插图宏代码

图片存储在C:\Users\Administrator\Documents\My File\报价资料\报价清单图片
图片JPG格式，图片名称和型号一一对应。
宏名称“图片”
如下图，需要在C列，从C16开始插入图片，求宏代码，我用的是2013 office,谢谢大家，试用了百度上的几个教程不能解决问题，只好都贴出来请大家帮忙

Answer 1

代码如下

Sub test()
 Dim oldPic As Shape, picFile As String, myRg As Range
 For Each oldPic In ActiveSheet.Shapes
   If oldPic.Type <> 8 Then
     oldPic.Delete
   End If
 Next
  For Each myRg In Range("c16:c" & Cells(Rows.Count, 2).End(3).Row)
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, myRg.Left, myRg.Top, myRg.Width, myRg.Height).Select
    picFile = "C:\Users\Administrator\Documents\My File\报价资料\报价清单图片\" & myRg.Offset(0, -1) & ".jpg"
    Selection.ShapeRange.Fill.UserPicture picFile
  Next
End Sub

追问

应该还有点儿问题 ，编辑指向这里，抱歉，实在不会

    Selection.ShapeRange.Fill.UserPicture picFile

追答

我这边实测通过了的。
如果有问题，可能数据环境和你不太一样。
扣
一五九六三九七零

Answer 2

图片与Excel表格无关，要么随地复制粘贴，很难引用吧，而WORD中用邮件合并功能可以完成