本篇经验将通过实例和大家分享【在VBA中，如何编写插入图片的代码？】如图所示。
工具/原料
电脑壹台
OFFICE办公软件
方法/步骤
1、实例【请编写代码，运行后根据姓名在工作表中插入本地图片？】
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visualbasic】!
3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：Sub导入图片()DimspAsShape,筠续师诈rngAsRange,rgAsRange,惺绅寨瞀argAsRangeForEachspInSheets("插入图片").ShapesIfsp.Type<>8Thensp.DeleteNextspSetarg=Columns("a").End(xlDown)ForEachrngInRange([a2],arg)pah=thisworkbook.Path&"\tupian\"&rng.Value&".jpg"Setrg=Cells(rng.Row,"b")Sheets("插入图片").Shapes.AddPicturepah,True,True,rg.Left,rg.Top,rg.Width,rg.HeightNextEndSub
6、在工作表的【开发工具】菜单下，点击【插入】按钮，插入一【表单】按钮，并与指定编写的侑喏嵋甲插入图片代码关联，且进入命名为【导入图片】！
7、点击【导入图片】按钮，图片被瞬间导入，效果直观形象！
