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

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、谢谢观看