excel批量插入图片？没那么复杂！

看个动画先：

代码行数太多，本文省略，文末示例有链接截图，或者私信：插入图片

​代码已有注释说明，这儿就再说明一下运行过程。

首先，会让用户选择存放图片的文件夹。注意是选择文件夹，不是选择图片；选择文件夹后，看不到文件夹内的图片是正常现象。

​

然后，选择图片名称存放的单元格区域，可以选择整列、多列、整行或多行，比如示例动画中的B:D列，2:2行等。。

​

最后，设置图片相对于图片名称所在的单元格便宜的位置；比如图片名称在B列，图片放在C列，那就是向右偏移1列，即右1。上下左右代表了方向，数字代表偏移的量。

​

代码继续运行，先删除存放于放置图片单元格范围的原图片图形（如何用代码删除指定位置的图形图片？这个问题也不要在后台提问了），然后遍历图片名称，根据偏移位置插入新图片。

代码运行结束后会告之用户一共成功插入了多少张图片，以及失败了多少张；有朋友说找不到图片的单元格能否填充颜色作提醒，我想想觉得没必要啊，就没做……不要说我懒，认真脸。

小贴士：

1，该段小代码支持一下图片格式：

'.jpg', '.jpeg', '.bmp', '.png', '.gif'

2，图片的纵横比是未锁定的，如需锁定，可以注释掉下句代码：

.ShapeRange.LockAspectRatio = msoFalse

3，图片的行高和列宽是由放置图片的单元格行高和列宽决定的。当然，您也可以把代码稍微修改，设置固定的图片行高和列宽，并由图片的行高和列宽决定单元格的大小。

4，图片的名称必须和指定单元格范围内的名称一致，如果需要模糊匹配，使用DIR函数搭配通配符的方式即可。

5，代码采用非引用的方式插入图片，该方式会图片作为excel的资源打包到excel文件中，即便数据源的图片已被删除，表格中的图片也依然存在。

示例链接截图​(文章无法插入链接，请谅解！)

​

可私信：插入图片

​

​