excel图片怎么导入 excel批量插入图片到单元格

首先通过VBA宏实现图片与数据匹配插入，再利用Power Query结合超链接导入图片引用，最后介绍使用Kutools插件批量插入的方法，三种方式均能高效完成Excel中图片与数据的关联和批量处理。

如果您需要在Excel中将图片与特定数据关联，并批量插入到对应单元格中，可能是为了制作产品目录、人员档案或可视化报表。手动逐个插入效率低下，可以通过自动化方式实现精准匹配和批量处理。

本文运行环境：联想ThinkPad X1 Carbon，Windows 11

一、使用VBA宏代码批量插入图片到指定单元格

通过编写VBA脚本，可以自动读取指定文件夹中的图片，并根据文件名与Excel表格中的关键词匹配，将图片插入对应的单元格中。

1、按下Alt + F11打开VBA编辑器，在工作簿对应的模块中插入一个新模块。

2、粘贴以下代码并根据实际路径和列名进行修改：

Sub InsertPictures()

Dim picPath As String, fileName As String

Dim ws As Worksheet, lastRow As Long

Set ws = ActiveSheet

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

picPath = "C:\图片素材\" ' 修改为你的图片文件夹路径

fileName = Dir(picPath & "*.jpg")

Do While fileName ""

    Dim keyName As String

    keyName = Left(fileName, InStrRev(fileName, ".") - 1)

    Dim findCell As Range

    Set findCell = ws.Columns("A").Find(keyName, LookIn:=xlValues, LookAt:=xlWhole)

    If Not findCell Is Nothing Then

        Dim img As Picture

        Set img = ws.Pictures.Insert(picPath & fileName)

        With img

            .Top = findCell.Offset(0, 1).Top

            .Left = findCell.Offset(0, 1).Left

改图鸭AI图片生成

改图鸭AI图片生成

30

查看详情

            .Width = 100

            .Height = 80

            .Placement = 1

        End With

    End If

    fileName = Dir

Loop

End Sub

3、保存代码后关闭编辑器，返回Excel按Alt + F8运行宏，选择InsertPictures执行。

二、利用Power Query结合超链接批量导入图片引用

Power Query可用于加载包含图片路径的数据表，并生成可点击的链接，再配合公式或控件显示图片预览。

1、在Excel数据表中创建两列：名称和图片路径，确保图片路径为完整绝对路径，例如：C:\图片素材\张三.jpg。

2、选中数据区域，点击“数据”选项卡下的“从表格/区域”导入到Power Query中。

3、在Power Query编辑器中确认数据正确后，点击“关闭并上载”将数据加载回Excel。

4、在目标工作表中新增一列用于显示图片占位符，使用公式如：=HYPERLINK([@图片路径], "点击查看图片") 创建可点击链接。

5、后续可通过VBA监听单元格点击事件，动态在指定位置显示对应图片。

三、使用第三方插件快速完成图片批量插入

某些Excel增强插件（如Kutools for Excel）提供“插入多张图片”功能，支持按文件名匹配单元格内容自动插入。

1、安装并启用Kutools插件后，在功能区找到“Kutools”选项卡。

2、点击“插入”组中的“多张图片”，打开批量插入向导。

3、设置图片所在文件夹路径，勾选“根据文件名匹配单元格”选项。

4、指定要匹配的列范围（如A2:A100），并设定插入图片的目标列偏移量。

5、设置图片尺寸缩放模式，选择是否覆盖原有图片，然后点击确定开始插入。所有匹配成功的图片将自动填入对应行的指定列中。

以上就是excel图片怎么导入 excel批量插入图片到单元格的详细内容，更多请关注php中文网其它相关文章！