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
3、将代码中"C:\MyPictures\"替换为实际存放图片的本地文件夹完整路径。
4、关闭VBA编辑器，返回Excel界面，按下Alt + F8调出宏列表，选中InsertPicturesGrid并点击【运行】。
5、等待脚本执行完毕，所有图片将按设定行列规则自动填入工作表，起始位置为A1单元格所在区域。
三、借助Power Query预加载图片路径后插入超链接
该方法不直接嵌入图片，而是将图片路径批量导入为超链接列，配合条件格式或批注显示缩略图提示，适用于图片体积大、需节省文件容量且仅需快速预览的场景。
1、新建空白工作表，在A1单元格输入标题图片路径。
2、点击【数据】→【获取数据】→【来自文件】→【从文件夹】，浏览并选择含图片的文件夹。
3、在导航器中取消勾选【Content】列，仅保留【Name】和【Folder Path】列，点击【转换数据】进入Power Query编辑器。
4、添加自定义列，公式为：= [Folder Path] & [Name]，重命名为FullPath。
5、筛选出扩展名为jpg/png/gif的行，删除其他列，仅保留FullPath列。
6、点击【关闭并上载】，将路径列表导入新工作表。
7、选中路径列第一个单元格（如A2），输入公式：=HYPERLINK(A2,"点击查看")，双击填充柄向下复制至全部行。
8、右键任一超链接单元格，选择【超链接】→【编辑超链接】→【屏幕提示文字】中输入悬停显示原图，确认后即可实现鼠标悬停提示。
