这是小编介绍的Excle批量导入图片的第二种方法，使用“表达式+Shapes.AddPicture（）.Placement = xlMoveAndSize'。能使所导入的图片能随单元格大小位置变化而变化。
工具/原料
Microsoft Excle
方法/步骤
1
快捷键Alt+F11,然后单击插入-模块。
2
输入内容：Sub 插入图片()For Each adp In SelectionSet myDocument = ActiveSheetmyDocument.Shapes.AddPicture(adp.Offset(0, -1).Value, msoTrue, msoCTrue, adp.MergeArea.Left, _adp.MergeArea.Top, adp.MergeArea.Width, adp.MergeArea.Height).Placement = xlMoveAndSizeNext adpEnd Sub
3
回到excle工作表中，选择填写有导入图片路径名内容的右侧单元格区域，然后按快捷键Alt+F8,弹出对话框单击运行。
4
效果如下
5
谢谢观看
注意事项
1
在第三步中，如果你填写的内容不在A列，你就不能选择B列
2
以上操作不支持WPS