如何一次性從 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 中將圖表匯出為圖形？