Excel如何快速导入并排列图片 Excel表格批量处理图片教程_网络技术

Excel如何快速导入并排列图片 Excel表格批量处理图片教程

发布时间 - 2026-01-09 00:00:00 点击率：次

Excel中批量导入并排列图片有三种方法：一、用插入图片功能多选导入后对齐分布；二、用VBA宏按行列网格自动插入；三、用Power Query导入路径并创建带提示的超链接。

如果您希望在Excel中快速导入多张图片并按指定顺序排列，而非逐一手动插入调整，则需要借助Excel内置功能与辅助技巧实现高效批量处理。以下是完成此任务的具体操作方法：

一、使用插入对象功能批量导入图片

该方法通过“插入对象”方式将图片作为可调整尺寸的嵌入式对象导入，支持统一选中与对齐操作，适用于图片数量适中且需保留原始分辨率的场景。

1、在Excel工作表中，点击【插入】选项卡，选择【图片】→【此设备】。

2、在文件选择窗口中，按住Ctrl键依次单击所需导入的全部图片文件，确保其被同时勾选。

3、点击【插入】按钮，所有选中图片将以缩略图形式插入当前活动工作表的左上角区域。

4、按住Shift键逐个单击每张图片，或直接拖动鼠标框选全部图片，实现批量选中。

5、右键任意一张已选图片，选择【大小和属性】→【属性】选项卡，将【对象位置】设置为【随单元格改变位置和大小】。

6、在【开始】选项卡中，点击【查找和选择】→【选择对象】，再次确认全部图片处于选中状态。

7、使用【绘图工具-格式】选项卡中的【对齐】功能，依次点击【顶端对齐】、【左对齐】，再使用【横向分布】使图片等距水平排列。

二、利用VBA宏自动导入并网格化排列图片

该方法通过运行自定义VBA脚本，从指定文件夹读取所有图片文件，按行列数自动计算位置并插入到工作表中，适合处理数十张以上图片且要求严格对齐的批量任务。

1、按下Alt + F11打开VBA编辑器，点击【插入】→【模块】。

2、在空白模块窗口中粘贴以下代码（以每行4列、图片宽高设为120像素为例）：

Sub InsertPicturesGrid()
Dim fso As Object, folder As Object, file As Object
Dim ws As Worksheet, pic As Picture
Dim i As Long, rowIdx As Long, colIdx As Long
Set ws = ActiveSheet
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\MyPictures\")
i = 0
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Name)) Like "jpg" Or _
LCase(fso.GetExtensionName(file.Name)) Like "png" Or _
LCase(fso.GetExtensionName(file.Name)) Like "gif" Then
i = i + 1
rowIdx = Int((i - 1) / 4) * 20 + 1
colIdx = ((i - 1) Mod 4) * 15 + 1
Set pic = ws.Pictures.Insert(file.Path)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Width = 120
.Height = 120
.Top = ws.Rows(rowIdx).Top
.Left = ws.Columns(colIdx).Left
End With
End If
Next file
End Sub