在VBA中，如何编写插入图片的代码

在VBA中，如何编写插入图片的代码

本篇经验将通过实例和大家分享【在VBA中，如何编写插入图片的代码？】如图所示。

实例【请编写代码，运行后根据姓名在工作表中插入本地图片？】

在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

会弹出模块编辑窗口！

在代码编辑窗口输入以下代码：

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

在工作表的【开发工具】菜单下，点击【插入】按钮，插入一【表单】按钮，并与指定编写的插入图片代码关联，且进入命名为【导入图片】！

点击【导入图片】按钮，图片被瞬间导入，效果直观形象！