0

0

Excel批量插入图片怎么操作 Excel如何根据单元格内容快速导入大量图片【媒体】

冰火之心

冰火之心

发布时间:2026-01-03 17:43:02

|

171人浏览过

|

来源于php中文网

原创

需借助VBA、相机工具或Power Query+Power Automate协同实现:一、VBA读取A列绝对路径批量插入并锚定图片;二、超链接配合相机工具动态截图预览;三、Power Query补全路径后由Power Automate循环插入。

excel批量插入图片怎么操作 excel如何根据单元格内容快速导入大量图片【媒体】

如果您希望在Excel中根据单元格内容(如图片文件名或路径)自动批量插入对应图片,而非手动逐一粘贴,则需借助公式逻辑与VBA功能协同实现。以下是具体操作步骤:

一、使用VBA代码根据A列路径批量插入图片

该方法要求A列中填写的是图片的完整绝对路径(例如:C:\Images\photo1.jpg),VBA将逐行读取路径并插入对应图片,图片尺寸可统一设定并锚定至对应单元格区域。

1、按 Alt + F11 打开VBA编辑器。

2、在左侧工程资源管理器中,右键当前工作簿名称,选择“插入” → “模块”。

3、在新模块窗口中粘贴以下代码:

Sub InsertPicturesFromPath()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim pic As Picture
Dim imgPath As String
Set ws = ActiveSheet
Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
For Each cell In rng
  imgPath = Trim(cell.Value)
  If imgPath "" And Dir(imgPath) "" Then
    Set pic = ws.Pictures.Insert(imgPath)
    With pic
      .ShapeRange.LockAspectRatio = msoFalse
      .Width = 120
      .Height = 80
      .Top = cell.Top
      .Left = cell.Offset(0, 1).Left
    End With
  End If
Next cell
End Sub

4、关闭VBA编辑器,返回Excel,按 Alt + F8,选择宏“InsertPicturesFromPath”,点击“运行”。

二、利用超链接+相机工具间接实现图片预览效果

当无法直接插入图片(如受限于权限或路径为网络地址),可先为每个路径创建超链接,并用Excel“相机工具”动态捕获外部图片窗口截图,形成类嵌入式视觉反馈。

1、确保已启用“相机工具”:右键快速访问工具栏 → “自定义快速访问工具栏” → 从“不在功能区中的命令”中找到“相机”,添加至工具栏。

2、在B1单元格输入公式:=HYPERLINK(A1,"查看图片"),向下填充至对应行数。

自由画布
自由画布

百度文库和百度网盘联合开发的AI创作工具类智能体

下载

3、手动打开A列任一图片路径所指向的图片(使用系统默认看图软件),调整窗口大小使其稳定显示。

4、选中该图片窗口所在区域,点击快速访问栏中的“相机”按钮,在Excel中单击放置位置,生成可随原图窗口变化而更新的动态快照。

三、借助Power Query拼接本地路径后调用Power Automate桌面流

适用于A列仅含图片文件名(如“IMG_001.png”)且所有图片存放在同一固定文件夹下的场景。Power Query负责补全路径,Power Automate桌面流负责按路径列表依次执行插入动作。

1、在Excel中,点击“数据”选项卡 → “获取数据” → “来自其他源” → “空白查询”。

2、在Power Query编辑器中,输入以下M代码(将"C:\MyPhotos\"替换为实际文件夹路径):

let
  Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
  AddPath = Table.AddColumn(Source, "FullPath", each "C:\MyPhotos\" & [FileName]),
  ChangedType = Table.TransformColumnTypes(AddPath,{{"FullPath", type text}})
in
  ChangedType

3、关闭并上载该查询结果至新工作表,确认“FullPath”列包含完整可访问路径。

4、打开Power Automate桌面,新建流程,使用“Excel - 在工作表中查找值”读取路径列,再调用“图像 - 插入图像到Excel”操作,设置图像路径为变量,循环执行。

相关专题

更多
if什么意思
if什么意思

if的意思是“如果”的条件。它是一个用于引导条件语句的关键词,用于根据特定条件的真假情况来执行不同的代码块。本专题提供if什么意思的相关文章,供大家免费阅读。

715

2023.08.22

counta和count的区别
counta和count的区别

Count函数用于计算指定范围内数字的个数,而CountA函数用于计算指定范围内非空单元格的个数。本专题为大家提供相关的文章、下载、课程内容,供大家免费下载体验。

193

2023.11.20

excel对比两列数据异同
excel对比两列数据异同

Excel作为数据的小型载体,在日常工作中经常会遇到需要核对两列数据的情况,本专题为大家提供excel对比两列数据异同相关的文章,大家可以免费体验。

1368

2023.07.25

excel重复项筛选标色
excel重复项筛选标色

excel的重复项筛选标色功能使我们能够快速找到和处理数据中的重复值。本专题为大家提供excel重复项筛选标色的相关的文章、下载、课程内容,供大家免费下载体验。

397

2023.07.31

excel复制表格怎么复制出来和原来一样大
excel复制表格怎么复制出来和原来一样大

本专题为大家带来excel复制表格怎么复制出来和原来一样大相关文章,帮助大家解决问题。

545

2023.08.02

excel表格斜线一分为二
excel表格斜线一分为二

在Excel表格中,我们可以使用斜线将单元格一分为二。本专题为大家带来excel表格斜线一分为二怎么弄的相关文章,希望可以帮到大家。

1240

2023.08.02

excel斜线表头一分为二
excel斜线表头一分为二

excel斜线表头一分为二的方法有使用合并单元格功能方法、使用文本框功能方法、使用自定义格式方法。本专题为大家提供excel斜线表头一分为二相关的各种文章、以及下载和课程。

363

2023.08.02

绝对引用的输入方法
绝对引用的输入方法

绝对引用允许在公式中引用一个固定的单元格,而不会随着公式的复制和粘贴而改变引用的单元格。本专题为大家提供绝对引用相关内容的文章,大家可以免费体验。

4517

2023.08.09

从零到实战:Python 编程系统入门专题
从零到实战:Python 编程系统入门专题

本专题面向零编程基础及初学者,系统讲解 Python 编程语言的核心知识与实战技巧。内容涵盖 Python 基础语法、数据结构、函数与模块、常用标准库、简单算法思维,以及真实应用场景下的小项目实战。通过循序渐进的学习路径,帮助读者快速建立编程思维,掌握 Python 在数据处理、自动化脚本及日常开发中的实际应用能力,为后续深入学习 Web 开发、数据分析或人工智能打下坚实基础。

4

2026.01.05

热门下载

更多
网站特效
/
网站源码
/
网站素材
/
前端模板

精品课程

更多
相关推荐
/
热门推荐
/
最新课程
Excel 教程
Excel 教程

共162课时 | 10.7万人学习

成为PHP架构师-自制PHP框架
成为PHP架构师-自制PHP框架

共28课时 | 2.4万人学习

关于我们 免责申明 举报中心 意见反馈 讲师合作 广告合作 最新更新
php中文网:公益在线php培训,帮助PHP学习者快速成长!
关注服务号 技术交流群
PHP中文网订阅号
每天精选资源文章推送

Copyright 2014-2026 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号