首先使用VBA宏代码可实现Excel中批量插入图片，通过编写脚本将指定路径的图片按单元格位置插入并调整大小；其次利用Power Query从文件夹导入图片路径后结合VBA自动插入，适用于图片集中存储场景；最后可通过Kutools for Excel等第三方插件快速完成图片批量插入，无需编程。
如果您需要在Excel工作表中为每个单元格批量插入对应的图片，例如用于产品图册或人员信息展示，可以通过多种方式实现自动化操作。手动逐个插入不仅耗时且容易出错，以下介绍几种高效的方法来完成此任务。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11。
一、使用VBA宏代码批量插入图片
VBA（Visual Basic for Applications）是Excel内置的编程工具，能够通过编写脚本自动执行重复性任务。利用VBA可以根据指定路径和单元格位置批量将图片插入到对应单元格中，并调整大小以适应单元格。
1、打开Excel文件，按下 Alt + F11 键进入VBA编辑器。
2、在左侧工程资源管理器中右键点击当前工作簿，选择“插入” → “模块”。
3、将以下代码粘贴至代码窗口：
Sub InsertPicturesIntoCells()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim rng As Range
Dim cell As Range
Dim picPath As String
Dim img As Picture
Set rng = ws.Range("A2:A10") ' 修改为包含图片路径的单元格区域
For Each cell In rng
If cell.Value <> "" Then
picPath = cell.Value ' 假设A列存储图片完整路径
If Dir(picPath) <> "" Then
Set img = ws.Pictures.Insert(picPath)
With img
.Top = cell.Offset(0, 1).Top
.Left = cell.Offset(0, 1).Left
.Width = cell.Offset(0, 1).Width
.Height = cell.Offset(0, 1).Height
.Placement = 1 ' 固定于单元格
End With
End If
End If
Next cell
End Sub
4、确保A2:A10列中包含有效的图片文件完整路径，如 C:\images\photo1.jpg。
5、关闭VBA编辑器，返回Excel，按下 Alt + F8 运行宏，选择 InsertPicturesIntoCells 并执行。
二、使用Power Query结合文件夹导入路径后调用VBA
Power Query可用于从指定文件夹批量提取图片文件名及其完整路径，并将其加载到Excel表格中，再配合VBA实现自动插入。这种方法适合图片存储在同一目录下的场景。
1、将所有需要插入的图片统一放在一个文件夹内，例如 D:\ProductImages。
2、在Excel中点击“数据”选项卡，选择“获取数据” → “从文件” → “从文件夹”。
3、浏览并选择图片所在文件夹，点击“确定”，系统会列出该文件夹下所有文件。
4、在查询编辑器中筛选出扩展名为 .jpg、.png 或 .gif 的图片文件，保留“Name”和“Content”字段。
5、添加自定义列生成完整路径，公式为："D:\ProductImages\" & [Name]。
6、将结果加载到工作表某一列（如B列），然后使用上一方法中的VBA代码引用该列为图片路径源。
三、使用第三方插件快速插入图片
某些Excel增强插件如 Kutools for Excel 提供了“插入多张图片”功能，可以直接根据文件列表将图片按顺序插入到指定单元格范围，无需编程基础。
1、安装并启用 Kutools for Excel 插件。
2、准备好一个包含图片路径的列，或直接准备图片文件列表。
3、点击 Kutools 选项卡，选择“插入” → “多张图片插入”。
4、在弹窗中设置图片来源路径、目标单元格区域以及图片缩放模式。
5、勾选“将图片嵌入单元格”选项，点击“确定”即可完成批量插入。
