Excel如何将图片批量插入到单元格中_Excel图片批量插入单元格方法-办公软件-PHP中文网

Excel如何将图片批量插入到单元格中_Excel图片批量插入单元格方法

尼克

发布： 2025-11-24 18:24:06

原创

927人浏览过

首先使用VBA宏代码可实现Excel中批量插入图片，通过编写脚本将指定路径的图片按单元格位置插入并调整大小；其次利用Power Query从文件夹导入图片路径后结合VBA自动插入，适用于图片集中存储场景；最后可通过Kutools for Excel等第三方插件快速完成图片批量插入，无需编程。

excel如何将图片批量插入到单元格中_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 并执行。