EXCLE图形插入实例

根据所给名称找到相应图片，并进行导入。

代码如下：

Sub Import_picture()
For Each shap In Sheet1.Shapes '在sheet1中的图片对象进行循环
    If shap.Type <> 8 Then shap.Delete  '在插入图片之前删除以前插入的图片，但不删除命令按钮
Next shap
For Each Rng In Range([a1], Cells(Application.CountA(Columns(1)), 1)) '建立姓名循环区域
    i = ThisWorkbook.Path & "picture" & Rng & ".jpg" '找出图片的存放的磁盘位置
    Set rngs = Cells(Rng.Row, 2) '建立插入图片的位置区域
    Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height '插入图片，设置图片的坐标位置
Next Rng '继续循环插入直到循环结束。
End Sub

　　

点击“导入图片按钮”后

实例附件下载：点击下载