本篇经验将通过实例和大家分享【在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、点击【导入图片】按钮,图片被瞬间导入,效果直观形象!