需將 Excel 圖表用於網頁、簡報、非 Office 程式？兩種方法匯出 GIF：

方法一：另存為網頁（無代碼、自動產生 GIF）

1. 檔案 → 另存新檔 → 類型選 網頁 (*.htm; *.html)。
2. 儲存後，同目錄下會產生資料夾 檔案名_files，內含圖表對應的 .gif 檔。

缺點：會產生大量 HTML/支援檔案，需手動取出 GIF。

方法二：VBA 巨集一鍵匯出（精準、可批次、可整合流程）

1. Alt+F11 開啟 VBE → 插入 → 模組。
2. 貼上代碼：

Sub SaveChartAsGIF()
    Dim Fname As String
    Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
    ActiveChart.Export FileName:=Fname, FilterName:="GIF"
End Sub

3. 儲存活頁簿（必須先存檔，ThisWorkbook.Path 才有效）。
4. 選取圖表 → Alt+F8 → 選「SaveChartAsGIF」 → 「執行」。

GIF 檔以圖表名稱命名，存於活頁簿同資料夾，直接可用。

進階擴充

• 批次匯出所有圖表：For Each cht In ActiveSheet.ChartObjects ... 迴圈。
• 指定解析度：Export 方法無解析度參數，需先調整圖表尺寸或用 CopyPicture xlScreen, xlPicture + 畫圖板儲存。
• 加入錯誤處理：On Error Resume Next、檢查 ActiveChart 是否為 Nothing。

注意事項

• 執行前**必須選取圖表**且**活頁簿已存檔**，否則報錯。
• 巨集啟用設定：檔案→選項→信任中心→巨集設定→啟用所有巨集（不建議）或將檔案存於受信任位置。