1、实例【请编写代码，运行后根据姓名在工作表中插入本地图片？】
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：
Sub 导入图片()
Dim sp As Shape, rng As Range, rg As Range, arg As Range
For Each sp In Sheets("插入图片").Shapes
If sp.Type <> 8 Then sp.Delete
Next sp
Set arg = Columns("a").End(xlDown)
For Each rng In Range([a2], arg)
pah = thisworkbook.Path & "\tupian\" & rng.Value & ".jpg"
Set rg = Cells(rng.Row, "b")
Sheets("插入图片").Shapes.AddPicture pah, True, True, rg.Left, rg.Top, rg.Width, rg.Height
Next
End Sub
6、在工作表的【开发工具】菜单下，点击【插入】按钮，插入一【表单】按钮，并与指定编写的插入图片代码关联，且进入命名为【导入图片】！
7、点击【导入图片】按钮，图片被瞬间导入，效果直观形象！
