订阅在VBA中，如何编写插入图片的代码？
来源：网络收集 点击： 时间：2024-05-01【导读】：
本篇经验将通过实例和大家分享【在VBA中，如何编写插入图片的代码？】如图所示。工具/原料more电脑壹台OFFICE办公软件方法/步骤1/7分步阅读
2/7
3/7
4/7
5/7
6/7
7/7
实例【请编写代码，运行后根据姓名在工作表中插入本地图片？】
2/7在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3/7会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4/7会弹出模块编辑窗口！
5/7在代码编辑窗口输入以下代码：
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(, 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在工作表的【开发工具】菜单下，点击【插入】按钮，插入一【表单】按钮，并与指定编写的插入图片代码关联，且进入命名为【导入图片】！
7/7点击【导入图片】按钮，图片被瞬间导入，效果直观形象！
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_640390.html
