Excel批量处理1000张图片，打工人必备！

一、批量插入图片到Excel

方法1：VBA脚本自动插入

Sub BatchInsertPictures()

Dim folderPath As String

Dim imgFile As String

Dim cell As Range

Dim i As Integer

folderPath = “C:YourImageFolder” ‘修改为图片文件夹路径

Set cell = Range(“A1”) ‘起始单元格

imgFile = Dir(folderPath & “*.jpg”) ‘支持.jpg/.png等格式

Do While imgFile <> “”

With cell.Offset(i, 0)

.RowHeight = 100 ‘统一行高

.ColumnWidth = 20 ‘统一列宽

ActiveSheet.Pictures.Insert(folderPath & imgFile).Select

With Selection

.Top = cell.Offset(i, 0).Top

.Left = cell.Offset(i, 0).Left

.Height = cell.Offset(i, 0).RowHeight * 0.95 ‘按单元格高度自适应

.Placement = xlMoveAndSize ‘图片随单元格移动

End With

End With

i = i + 1

imgFile = Dir()

Loop

End Sub

效果：图片自动插入到A列，并锁定到单元格中。

方法2：Power Query动态引用

1. 创建图片路径表（含文件名和路径）

2. 使用Power Query导入数据

3. 添加自定义列公式：=Image.FromFile([Path])

4. 加载到Excel后右键列→转换→图片

二、批量统一图片尺寸

方法1：VBA强制等比例缩放

Sub ResizeAllPictures()

Dim pic As Shape

For Each pic In ActiveSheet.Shapes

If pic.Type = msoPicture Then

pic.LockAspectRatio = msoTrue ‘锁定纵横比

pic.Height = 80 ‘统一高度（单位：磅）

End If

Next pic

End Sub

方法2：绑定单元格尺寸

1. 全选所有图片 → 右键 → 大小和属性

2. 勾选：

• ✅ 锁定纵横比

• ✅ 随单元格改变位置和大小

3. 批量调整单元格行高列宽即可同步图片

三、批量重命名图片

方法1：通过单元格内容命名

Sub RenamePictures()

Dim pic As Shape

Dim rng As Range

For Each pic In ActiveSheet.Shapes

If pic.TopLeftCell.Address = “$A$1” Then ‘图片左上角单元格为A1

Set rng = pic.TopLeftCell.Offset(0, 1) ‘取右侧单元格内容作为名称

pic.Name = rng.Value

End If

Next pic

End Sub

效果：图片名称与B列内容同步（如产品ID）。

四、批量导出图片

方法1：VBA一键导出

Sub ExportAllPictures()

Dim pic As Shape

Dim exportPath As String

exportPath = “C:ExportedImages”

If Dir(exportPath, vbDirectory) = “” Then MkDir exportPath

For Each pic In ActiveSheet.Shapes

If pic.Type = msoPicture Then

pic.Copy

With New DataObject

.GetFromClipboard

.SaveToFile exportPath & pic.Name & “.png” ‘保存为PNG

End With

End If

Next pic

End Sub

方法2：修改文件后缀批量提取

1. 将Excel文件另存为 .zip 压缩包

2. 解压后进入路径：xlmedia

3. 所有嵌入图片按序号命名存放于此

五、高级技巧：图片与数据联动

动态显示对应图片

1. 在B2输入产品ID（如P1001）

2. 使用公式获取图片路径：

=HYPERLINK(“C:Images” & B2 & “.jpg”, “查看图片”)

3. 使用Power Query或VBA实现图片自动切换（需结合事件触发）

注意事项

1. 性能优化：

• 处理超过500张图片时，在VBA开头添加
Application.ScreenUpdating = False

• 处理完成后执行
Application.ScreenUpdating = True

2. 文件管理：

• 优先使用图片链接（外部路径）而非嵌入，减少文件体积

• 图片命名统一格式（如产品ID_2024.jpg）

3. 替代方案：

• 超过5000张图片提议使用数据库+前端工具（如Power BI）

• 批量裁剪/格式转换优先用Photoshop或Python+PIL库

通过以上方法，可快速实现Excel中图片的批量工业化处理，效率比手动操作提升90%以上。