分享VBA代码 Excel表格根据商品货号ID批量插入图片 并自动排版

先看动画示范效果

有网友Excel表里有商品名称，如何批量从文件夹里插入对应名称的图片？

当然是可以的，如果数量不多，可以用函数构造html然后批量导入，不过进来后还得调整格式，操作也麻烦，这里就不介绍了，我要说的是用vba代码完成的效果，本代码模板适合各类需要在表格中快速插入对应图片或者照片的场景，使用条件如下

1、Excel文件B列为货号ID，也可以是产品名称，注意这里需要保持图片名不重复，且和表格中名称一一对应，否则可能会插入出错，需要插入图片的位置预先调整好单元格大小，如果你的位置和我不同，请在代码中修改插入的位置

2、图片和表格在同一文件夹下，如果不是的话，请自己修改mypath，指定图片所在文件夹位置

3、一键插入图片 VBA实现

其实代码很简单，一个简单的循环+图片定位和调整大写，代码截图如下

VBA代码批量插入图片 并调整位置

这里有2种插图方式

• 第1种、链接图片，图片不直接保存在文档，每次可从文件夹读取，发送文件的时候注意文件夹要一起发送，优点是图片更换后文件里会同步刷新，另外主文件不会变得很大

• 第2种、保存文档、这就是把

  插入

  改为

  插入2

  ，插入图片到文档里保存，只需要发送文件给别人即可，但是图片多的话这种方式文件会变得很大