Excel 怎样快速插入多张图片到EXCEL表格

用一个宏
Sub Macro1()

introw = 2
ActiveSheet.Pictures.Delete '删除表中图片
Range("A" + Trim(Str(introw))).Select

Do While ActiveCell.FormulaR1C1 <> "" '判断当前单元格的值是否为空，空则结束
k = ActiveCell.FormulaR1C1
Range("G" + Trim(Str(introw))).Select

'ActiveWindow.SmallScroll Down:=0 关闭当时窗口

ActiveSheet.Pictures.Insert(ThisWorkbook.Path + "\" + k + ".jpg"). _
Select '插入图片，ThisWorkbook.Path表示图片与EXCEL文件同一文件夹

'On Error Resume Next '避免找不到同名图片出错,继续执行下一句命令
On Error GoTo ErrorHandler '避免找不到同名图片出错,跳到ErrorHandler执行

Selection.ShapeRange.Height = 113.25 '设定图片大小
Selection.ShapeRange.Width = 78#
Selection.ShapeRange.Rotation = 0#

line30: introw = introw + 1
Range("A" + Trim(Str(introw))).Select
Loop
If ActiveCell.FormulaR1C1 <> "" Then
ErrorHandler: ActiveCell.FormulaR1C1 = "无照片" '找不能同名的图片,则显示"无照片"
Resume Next '从错误中恢复,执行下一句
GoTo line30
End If

End Sub