如何在 Excel 中一次性插入多张图片并统一调整它们的尺寸？

我们可以利用 Excel 的“插入”图片功能批量导入多张图片，并统一调整它们的尺寸。请按以下步骤操作：

1. 在工作表中，单击插入 > 图片。

2. 在“插入图片”对话框中，请打开包含要插入图片的文件夹，按需选择多张图片，然后单击插入按钮。参见截图：
注意：按住 Ctrl 键，可逐个单击以选择多个不相邻的图片；按住 Shift 键，可先单击首张图片，再单击末张图片，快速选中连续的多张图片。

图片现已批量插入并整齐堆叠在工作表中。

3. 保持这些图片处于选中状态，即可在宽度和高度框中输入新数值，批量调整尺寸。这些选项位于格式选项卡的大小组中。参见截图：

现在所有已插入的图片均已同步调整为相同尺寸。

4. 目前您需手动将每张图片逐一移至合适位置。

注意：若堆叠了数十张图片，手动逐一调整至合适位置将极为耗时。

Kutools for Excel 的导入图片工具可帮助您根据单元格尺寸或图片尺寸，快速将多张图片插入 Excel，并支持按需自定义图片的高度和宽度。

1. 单击 KUTOOLS PLUS > 导入导出 > 导入图片，参见截图：

2. 在导入图片对话框中，请按以下步骤操作：
（1）从导入顺序下拉列表中指定图片的显示顺序，可选择先行后列或先列后行。
（2）单击添加按钮，选择图片文件或文件夹，即可将图片添加到图片列表中，所有选中的图片将显示在列表框中。
（3）单击导入大小按钮；

3. 现在，在导入图片尺寸对话框中，您可以轻松选择符合需求的图片尺寸。参见截图： 4. 指定图片尺寸后，请单击确定按钮关闭此对话框，返回至导入图片对话框，再单击导入按钮即可完成图片导入。 5. 在新的导入图片对话框中，请先选择要插入图片的目标区域的首个单元格，然后单击确定按钮。 目前，所有选中的图片已从活动单元格开始，按垂直或水平方向插入到您的单元格中。参见右侧截图：

Kutools for Excel 的导入图片功能专为在 Excel 中批量插入图片而设计，支持按匹配单元格大小、指定尺寸或图片原始尺寸插入。立即免费试用！

为避免逐一移动堆叠的图片，本方法为您介绍一种借助 OneNote 快速插入多张图片的高效技巧。请按以下步骤操作：

1. 启动 OneNote，新建一页，然后单击插入 > 图片。

2. 在“插入图片”对话框中，请打开包含要插入图片的文件夹，按需选择多张图片，然后单击插入按钮。参见截图：
注意：按住 Ctrl 键可逐个单击选择多个不相邻的图片；按住 Shift 键可通过单击首张和末张图片快速选中连续的多张图片。

3. 按 Ctrl+A 键选中 OneNote 中的所有已插入图片，再按 Ctrl+C 键即可复制。

4. 切换到 Excel 工作表，按下 Ctrl+V 键，即可将图片粘贴到工作表中。现在，所有图片已如左侧截图所示垂直排列。

5. 选择任意一张图片，按 Ctrl+A 键全选所有图片，然后在格式选项卡的大小组中，于宽度和高度框内输入新数值，即可批量调整图片尺寸。参见截图：

现在，所有指定的图片都已插入 Excel，并批量调整为统一尺寸。

使用以下 VBA 代码，即可将多张图片逐一插入到 Excel 的各个单元格中。

1. 请选择要插入图片的目标区域的首个单元格。

2. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

3. 单击插入> 模块，并将以下宏粘贴到模块窗口中。

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. 然后按 F5 键即可运行此代码。

5. 在“打开”对话框中，打开包含要插入图片的文件夹，选择多张待插入的图片，然后单击打开按钮，所有选中的图片将根据单元格大小自动导入到您选定的区域中。参见截图：

Kutools for Excel 还支持一项强大的匹配导入图片功能，可在 Excel 中批量将图片与单元格内容匹配，并仅插入匹配成功的图片。

1. 选择包含图片名称的单元格（该名称对应您要插入的图片），然后点击 KUTOOLS PLUS> 导入/导出> 匹配导入图片。参见截图：

2. 在弹出的“匹配导入图片”对话框中，请执行以下操作：
（1) 从导入顺序下拉列表中指定图片的显示顺序；
（2) 单击添加按钮，将图片添加到图片列表框中（仅会列出匹配的图片）；
（3) 然后单击导入大小按钮。

3. 在导入图片尺寸对话框中，您可以选择符合需求的图片尺寸，然后单击确定按钮。参见截图： 4. 现在您已返回到导入图片对话框，请单击导入按钮以导入图片。 5. 在弹出的“匹配导入图片”对话框中，请指定要插入图片的目标区域的首个单元格，然后单击确定按钮。参见截图： 截至目前，所有图片均已根据其对应名称插入到单元格中。请参见右侧截图：

Kutools for Excel 的匹配导入图片功能可帮助 Excel 用户根据单元格值快速筛选并批量插入对应图片，还能自动将这些图片调整为指定尺寸或适配单元格大小。立即免费试用！

如何在 Excel 中调整图片大小，使其完美适配单元格？

如何在 Excel 中快速调整多个单元格的大小，使其完美适配上方的图片？