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

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

这是小编介绍的Excle批量导入图片的第二种方法，使用“表达式+Shapes.AddPicture（）.Placement = xlMoveAndSize"。能使所导入的图片能随单元格大小位置变化而变化。

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

输入内容：

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

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

效果如下

谢谢观看