Excel批量插入图片

 用excel制作类似准考证的证件时，需要批量插入图片。

Sub 插入图片()
    qs = InputBox("请输入起始文件号：")
    zz = InputBox("请输入终止的文件号：")
    On Error Resume Next
    For i = qs To zz
        ActiveSheet.Shapes.AddPicture _
        "F:/图片备份/6500_3/2008_0723辅导班/新建文件夹/" & Format(i, "0000") & "_94x125.jpg", _
        True, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height
        'ActiveCell.Offset(1, 0).Select
        If Err.Number = 0 Then ActiveCell.Offset(1, 0).Select
        Err.Clear
    Next i
End Sub