Excle批量导入图片：[2]AddPicture函数

1、快捷键Alt+F11,然后单击插入-模块。

2、输入内容：

Sub 插入图片()

For Each adp In Selection

Set myDocument = ActiveSheet

myDocument.Shapes.AddPicture(adp.Offset(0, -1).Value, msoTrue, msoCTrue, adp.MergeArea.Left, _

adp.MergeArea.Top, adp.MergeArea.Width, adp.MergeArea.Height).Placement = xlMoveAndSize

Next adp

End Sub

3、回到excle工作表中，选择填写有导入图片路径名内容的右侧单元格区域，然后按快捷键Alt+F8,弹出对话框单击运行。

4、效果如下

5、谢谢观看