如何將 Word 文件中的圖表匯出為圖片

Word 中的圖表經常應用於報告、簡報、電子郵件或網站。與其重新製作相同的圖表，不如直接將其匯出為圖片來得更方便。雖然 Word 並未提供單一的「匯出圖表」按鈕，但無論您需要匯出單張或數十張圖表，都有多種實用方法可輕鬆達成。

在本教學中，您將學會如何將 Word 中的圖表匯出為圖片檔。我們會先從最快速的內建方法開始，接著介紹運用 HTML、Kutools for Word 與 VBA 的批次匯出解決方案。

• 方法 1：將圖表另存為圖片（右鍵點擊）
• 方法 2：透過將 Word 另存為網頁（HTML），批次匯出圖表為 PNG 格式
• 方法 3：使用 Kutools for Word 批次匯出圖表
• 方法 4：使用 VBA 批次匯出圖表

將圖表另存為圖片（右鍵點擊）

這是將單張圖表匯出為圖片的最快方法！Word 內建另存為圖片功能，讓您一鍵輕鬆儲存圖表。

1. 點選圖表以選取。
2. 右鍵點擊圖表，選擇另存為圖片即可。

   

3. 在另存為圖片對話方塊中：
   • 瀏覽至您希望儲存圖片的資料夾。
   • 在檔案名稱方塊中，為圖表圖片輸入名稱。
   • 在指定保存格式中，選擇 PNG 或 JPG 等圖片格式。

   

4. 立即點擊儲存！

透過將 Word 另存為網頁（HTML）批次匯出圖表為 PNG 格式

若您的文件包含多張圖表，將其另存為網頁是快速一次匯出所有圖表的絕佳方式。

1. 按一下檔案＞ 另存新檔。
2. 在指定保存格式下拉式選單中，選取 網頁（*.htm； *.html）。
3. 點擊儲存。

   

Word 會在文件所在位置（除非您另行指定資料夾）建立一個 HTML 檔案與獨立的資料夾。

文件中的所有圖表將以 PNG 圖片格式匯出，並儲存於該獨立資料夾中。

使用 Kutools for Word 批次匯出圖表

Kutools for Word 提供一種簡便方式，可將圖表批次匯出為圖片檔案，無需逐一複製或使用 VBA，即可輕鬆從文件中儲存多張圖表。此外，此工具還能將圖片與表格一併匯出為圖片。

1. 按一下 KUTOOLS PLUS > 其他 > 將圖片/表格匯出為圖片。

   

2. 在對話方塊中：
   • 在圖表類型下拉式選單中選擇，即可將文件中的圖表匯出為圖片。
   • 選擇 PNG、JPEG 等圖片格式。
   • 指定輸出資料夾。

     

     提示：若不想匯出某些圖表，請在選擇要匯出的項目清單中取消勾選。（啟用）在文件中檢視後，點擊清單中的圖表即可跳至文件中的確切位置進行檢視。）
3. 點擊匯出。

文件中的所有圖表都將以獨立圖片檔案的形式，儲存至您所選的資料夾中。

使用 VBA 批次匯出圖表

若您需要完全掌控或自動化處理，VBA 可將文件中的每張圖表匯出為圖片，最適合進階使用者。

1. 按下 Alt + F11，立即開啟 VBA 編輯器！
2. 按一下插入＞ 模組。

   

3. 請將下方的巨集貼上至模組視窗中。

   Sub ExportChartsAsImages()
   
       Dim ils As InlineShape
       Dim sh As Shape
       Dim i As Long
       Dim outPath As String
       Dim resp As VbMsgBoxResult
   
       outPath = ActiveDocument.Path
       If outPath = "" Then
           MsgBox "Please save the document first, then run the macro again.", vbExclamation, "Kutools for Word"
           Exit Sub
       End If
   
       resp = MsgBox( _
           "Existing image files with the same name will be replaced automatically." & vbCrLf & vbCrLf & _
           "Do you want to continue?", _
           vbExclamation + vbYesNo, _
           "Kutools for Word")
   
       If resp = vbNo Then Exit Sub
   
       i = 1
   
       For Each ils In ActiveDocument.InlineShapes
           If ils.HasChart Then
               ils.Chart.Export FileName:=outPath & "\Chart_" & i & ".png", FilterName:="PNG"
               i = i + 1
           End If
       Next ils
   
       For Each sh In ActiveDocument.Shapes
           If sh.HasChart Then
               sh.Chart.Export FileName:=outPath & "\Chart_" & i & ".png", FilterName:="PNG"
               i = i + 1
           End If
       Next sh
   
       MsgBox (i - 1) & " chart(s) exported to:" & vbCrLf & outPath, vbInformation, "Kutools for Word"
   
   End Sub

4. 按下 F5 即可執行巨集！

圖表將一次性匯出為圖片，並儲存至與文件相同的資料夾中。

方法比較

結論

若您只需匯出單張圖表，右鍵點擊另存為圖片選項是最快的方法！若需大量匯出，雖然將文件另存為 HTML 可解燃眉之急，但控制性較低。想要乾淨又可靠的批次處理方案？Kutools for Word 是最簡單的選擇；若追求自動化與高度自訂功能，VBA 則最為理想。

請根據您匯出圖表的頻率與所需控制程度，選擇最適合的方式。

希望本教學對您有所幫助！若您想探索更多 Word 技巧與實用解決方案，請立即點此處，瀏覽我們完整的 Word 教學文章，輕鬆提升工作效率！