可通过VBA代码根据Excel中图片文件名批量插入对应图片：需规范路径与文件名，启用开发工具插入模块，修改路径、表名和单元格区域参数后运行宏，默认插至右侧单元格并可调整尺寸。
如果您在Excel工作表中已列出图片文件名（如“产品A.jpg”），并希望根据这些名称自动从指定文件夹插入对应图片到相邻单元格，则可通过VBA代码实现批量导入。以下是具体操作步骤：
一、准备图片与路径规范
确保所有待插入的图片文件统一存放于一个固定文件夹中，且文件名（不含扩展名）与Excel中目标单元格内容完全一致；同时需确认图片格式为Excel支持的类型（如.jpg、.png、.bmp）。若路径含中文或空格，VBA仍可识别，但建议使用英文路径且避免特殊符号以降低出错概率。
二、启用开发工具并插入模块
在Excel中依次点击“文件→选项→自定义功能区”，勾选“开发工具”后确定；随后切换至“开发工具”选项卡，点击“Visual Basic”打开VBA编辑器；在左侧工程资源管理器中右键“当前工作簿”名称，选择“插入→模块”，新建一个标准模块。
三、粘贴并修改基础VBA代码
在新建模块中粘贴以下代码，并按实际需求修改两处关键参数：
1、将代码中"D:\Images\"替换为您的真实图片文件夹完整路径（注意末尾保留反斜杠）；
2、将代码中"Sheet1"替换为存放文件名的实际工作表名称（如“数据表”）；
3、将代码中"A2:A100"替换为目标文件名所在单元格区域地址（支持连续列，如“B2:B50”）。
四、运行VBA代码插入图片
返回Excel界面，在“开发工具”选项卡中点击“宏”，在弹出列表中选择刚创建的宏名（如“InsertPicturesByCell”），点击“运行”；代码将逐行读取指定区域单元格内容，在同一行右侧空白列（默认为右侧一列）插入匹配图片；若图片不存在，该位置将留空且不报错。
五、调整插入图片位置与尺寸
VBA默认将图片插入到目标单元格右侧单元格中心位置，并设置为“随单元格改变位置和大小”；如需统一宽度与高度，可在代码中添加如下两行（置于.ShapeRange.LockAspectRatio = msoFalse之后）：
1、.Width = 120；
2、.Height = 80；
插入后图片会自动适配设定尺寸，超出单元格部分可能被遮挡，建议先调整列宽与行高。
