求一个在EXCEL中按货号批量插入图片的宏，谢谢~

代码如来下

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\报价资料源\报价清单图片zhidao\" & myRg.Offset(0, -1) & ".jpg"
    Selection.ShapeRange.Fill.UserPicture picFile
  Next
End Sub

附件中的加载宏是我为公司写的，现分享出来，希望能方抄便有缘人。该加载宏可以实现四个功能：
第一袭、自动调整工作表中的图片适应单元格大小；
第二、从工作表中导出图片到指定文件夹；
第三、从指定文件夹中批量插入图片到工百作表中的某一列；
第四、从指定文件夹中批量插入图片到工作表某一列的批注中；
邮箱给我度！！我发给你
参考下百没有你的图度片专路径和格式属
Sub 宏1()
For Each Rng In Range([a2], Cells(Application.CountA(Columns(1)), 1))

i = ThisWorkbook.Path & "\7pic\" & Rng & ".png"
Set rngs = Cells(Rng.Row, 2)
Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height
Next Rng
End Sub

Sub 插入文件e799bee5baa6e997aee7ad94e59b9ee7ad94336夹中所有JPG文件()

Dim Path1, Path2

Dim Fso, F1, Down

Path1 = Application.GetOpenFilename("图片文件 (*.jpg), *.jpg", , "请选择图片")

If Path1 <> False Then

    Set Fso = CreateObject("Scripting.FileSystemObject")

    Set F1 = Fso.GetFile(Path1)

    Down = MsgBox("是否插入文件夹中所有图片?", vbOKCancel, "提示")

    If Down = vbOK Then

        Path2 = Dir(F1.ParentFolder & "\*.jpg")

        Do While Path1 <> ""

            ActiveSheet.Pictures.Insert F1.ParentFolder & "\" & Path2

            ActiveCell.Offset(1, 0).Select

            Path2 = Dir()

        Loop

    Else

        ActiveSheet.Pictures.Insert Path1

    End If

End If

End Sub