这是小编介绍的Excle批量导入图片的第二种方法，使用“表达式+Shapes.AddPicture（）.Placement = xlMoveAndSize。能使所导入的图片能随单元格大小位置变化而变化。工具/原料moreMicrosoft Excle方法/步骤1/5分步阅读

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

2/5

输入内容：

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/5

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

4/5

效果如下

5/5

谢谢观看

注意事项

在第三步中，如果你填写的内容不在A列，你就不能选择B列

以上操作不支持WPS

addpicture