如何一次從 Excel 匯出所有圖片？

作者Xiaoyang修改日期2024-11-01

假設您的活頁簿中包含大量圖片，且希望一次性將它們儲存至特定資料夾。一般來說，您可以手動逐一複製並貼上圖片來完成儲存，但如此反覆操作實在耗時費力。接下來，我將為您介紹幾種高效解決此問題的實用技巧。

使用「另存新檔」功能從 Excel 一次匯出所有圖片

使用強大工具輕鬆從 Excel 一次匯出所有圖片

並以相鄰儲存格的值重新命名圖片

使用「另存新檔」功能從 Excel 一次匯出所有圖片

透過 Excel 內建的另存新檔功能，您可將活頁簿儲存為網頁格式，一次將包含圖表、形狀及其他物件的所有圖片完整儲存至單一資料夾！請依下列步驟操作。

1. 開啟包含欲儲存圖片的活頁簿，按一下檔案＞ 另存新檔＞ 瀏覽。

按一下檔案 > 另存新檔 > 瀏覽

2. 在另存新檔對話方塊中，您需要：

2.1) 選擇一個資料夾以儲存導出圖片；

2.2) 從網頁指定保存格式下拉列表中選擇

2.3) 按一下儲存按鈕。

在另存新檔對話方塊中指定選項

3. 在跳出的 Microsoft Excel 對話方塊中，按一下是按鈕。

按一下「是」按鈕

4. 開啟已匯出檔案的儲存資料夾，您將看到其中包含一個資料夾及一份 HTML 格式的文件列表；活頁簿中的所有圖片（包括圖表、形狀或其他物件）均已儲存在該資料夾中。

活頁簿中的所有圖片（包括圖表、形狀或物件）都會儲存在資料夾中

5. 您可以保留資料夾中需要的圖片，並輕鬆刪除不需要的圖片。

使用強大工具輕鬆從 Excel 一次匯出所有圖片

上述方法會從活頁簿中提取所有物件，但其中可能包含您不需要的項目。若您已在 Excel 中安裝 Kutools for Excel，即可使用其匯出圖形功能，輕鬆僅儲存所需的圖片！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 按一下 KUTOOLS PLUS＞ 匯入匯出＞ 匯出圖形：

按一下 Kutools 的匯出圖形功能

2. 在匯出圖形對話方塊中，請依下列方式設定：

2.1) 從圖片類型下拉清單中選擇；

提示：預設情況下，當前工作簿中的所有圖形（包括圖表、圖片和形狀）都會列出。

2.2) 在保存路徑區段中，按一下瀏覽按鈕

按鈕以選擇文件夾來儲存您匯出的圖片；

2.3) 在導出格式下拉列表中，選擇您要匯出的圖片類型；

2.4) 按一下確定。

在對話方塊中指定選項

3. 在成功匯出圖片後，系統將彈出對話方塊，告知您已匯出多少張圖片，請按一下確定按鈕。

彈出對話方塊，顯示已匯出多少張圖片

現在您可以前往目標資料夾，檢查已匯出的圖片。

請按一下匯出圖形，立即深入了解此功能！

套用前，請先下載並安裝Kutools for Excel。

並以相鄰儲存格的值重新命名圖片

如下方截圖所示，有兩欄資料：一欄為水果名稱清單，另一欄則為對應的水果圖片。若想匯出這些圖片並自動以相對應的水果名稱命名，請試用本節所提供的 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

將程式碼複製並貼上到模組中

注意事項：

1) 程式碼行「If xImg.TopLeftCell.Column = 2 Then」中的數字 2 代表您要匯出圖片的欄號；If xImg.TopLeftCell.Column = 2 Then” represents the column number from which you want to export the pictures;

2) 程式碼行「xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value」中的數字－1 表示您將以相鄰左邊的儲存格的值來命名圖片。xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value” indicates that you will name the pictures with the values of the adjacent 左邊的儲存格。

3. 按下 F5 鍵以執行程式碼。在開啟的視窗中，選擇用來儲存圖片的資料夾，然後按一下確定。

選取一個資料夾來儲存圖片

接著，欄位中的所有圖片將自動匯出，並以您指定的相鄰儲存格值命名。

指定欄中的所有圖片皆已匯出，並自動以相鄰儲存格的值命名

如何將 Excel 中的圖表匯出為圖片？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多