excel批量插入图片

使用EXCEL的VBA功能，在代码窗口输入如下代码，作相应的修改，然后执行就可以了：
Sub 批量插入图片()
On Error Resume Next
Dim i As Integer
Dim 末行行号 As Integer
Dim 图片路径 As String '图片的完整路径
末行行号 = Cells.SpecialCells(11).Row
For i = ActiveCell.Row To 末行行号
Cells(i, 1).Select图片路径 = Cells(i, 2) & Cells(i, 3) '此处要根据实际作相应的修改
With ActiveSheet.Pictures.Insert(图片路径)
.ShapeRange.Height = 9.75 '这个数值是图片的高度，要根据要求作修改
.ShapeRange.Width = 28.5 '这个数值是图片的宽度，要根据要求作修改
End With
Next i
End Sub