如何一次性从 Excel 中导出所有图片？

假设您的工作簿中有很多图片，并希望将它们一次性保存到特定文件夹中。通常，您可以手动逐一复制和粘贴这些图片进行保存，但这样重复操作既耗时又繁琐。在这里，我将向您介绍一些技巧来解决这个问题。

使用“另存为”功能一次性从 Excel 导出所有图片

通过 Excel 内置的“ 另存为”功能，您可以将工作簿保存为 网页格式，从而将所有图片（包括图表、形状和其他对象）保存到一个文件夹中。请按照以下步骤操作：

1. 打开包含要保存图片的工作簿。点击 文件 > 另存为 > 浏览。

2. 在“ 另存为”对话框中，您需要执行以下操作：

3. 在弹出的 Microsoft Excel 对话框中，点击 是 按钮。

4. 打开保存导出文件的文件夹，您会看到一个文件夹和一个 HTML 格式的文件列在其中。工作簿中的所有图片（包括图表、形状或其他对象）都保存在这个文件夹中。

5. 您可以保留文件夹中需要的图片，并删除不需要的其他图片。

借助一款出色的工具，轻松一次性从 Excel 导出所有图片

上述方法会从工作簿中提取所有对象，可能其中有些并不是您需要的。如果您在 Excel 中安装了 Kutools for Excel，其 导出图形 功能可以帮助您仅保存所需的图片。

1. 点击 Kutools Plus > 导入/导出 > 导出图形：

2. 在“导出图形”对话框中，请按以下步骤配置：

2.1) 从 类型 下拉列表中选择 图片；

提示：默认情况下，当前工作簿中的所有图形（包括图表、图片和形状）都会列出。

2.2) 在 保存路径 部分，点击 按钮选择一个文件夹以保存导出的图片；

2.3) 在“导出格式”下拉列表中，选择您要导出的图片类型；

2.4) 点击 确定 按钮。

3. 接着会弹出一个对话框，告诉您有多少张图片已成功导出，点击 确定 按钮。

现在，您可以前往目标文件夹并查看导出的图片。

请点击 导出图形 以了解更多关于此功能的信息。

导出图片并使用相邻单元格的值重命名

如下图所示，有两列数据，一列包含水果名称列表，另一列包含相应的水果图片。为了导出这些图片并自动用对应的水果名称命名，您可以尝试本节中的 VBA 代码。

1. 在您要导出图片的工作表中，按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后将以下 VBA 代码复制到模块窗口中。

VBA 代码：导出一列中的图片并自动命名

Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
    Dim xStrPath As String
    Dim xStrImgName As String
    Dim xImg As Shape
    Dim xObjChar As ChartObject
    Dim xFD As FileDialog
    Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
    xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
    If xFD.Show = -1 Then
       xStrPath = xFD.SelectedItems.Item(1) & "\"
    Else
        Exit Sub
    End If
    
    On Error Resume Next
    For Each xImg In ActiveSheet.Shapes
        If xImg.TopLeftCell.Column = 2 Then
        xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
        If xStrImgName <> "" Then
            xImg.Select
            
            Selection.Copy
            Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
            With xObjChar
                .Border.LineStyle = xlLineStyleNone
                .Activate
                ActiveChart.Paste
                .Chart.Export xStrPath & xStrImgName & ".png"
                .Delete
            End With
        End If
        End If
    Next
End Sub

注意事项：

3. 按下 F5 键运行代码。在弹出的窗口中，选择一个文件夹以保存图片，然后点击 确定。

接着，指定列中的所有图片都将被导出，并根据您指定的相邻单元格值自动命名。

相关文章：

如何在 Excel 中将图表导出为图形？