一鍵為所有投影片套用不同背景圖

百頁簡報逐頁插入背景圖極耗時。撰寫 VBA 巨集，讀取依序命名的圖檔（1.jpg、2.jpg...），自動套用至對應頁碼投影片，並將巨集加入工具列按鈕，實現一鍵批量處理。

前置準備

1. 建立資料夾（如 F:\Background）
2. 背景圖依頁碼命名：1.jpg、2.jpg、3.jpg... 放入資料夾

撰寫 VBA 巨集

1. Alt+F11 開啟 VBE → 「插入」→「模組」
2. 貼上程式碼（核心行）：.Background.Fill.UserPicture "F:\Background\" & i & ".jpg"
3. 關閉 VBE，儲存簡報至同資料夾

建立工具列按鈕

1. 「工具」→「自訂」→「命令」索引標籤 → 類別選「巨集」
2. 將 CharuPic 巨集拖至工具列 → 右鍵重新命名「批量插入背景圖片」→ 更換圖示

執行與疑難排解

點擊工具列按鈕即自動完成全書背景套用。若無反應，請至「工具」→「巨集」→「安全性」→ 設為「中」等級並重開 PPT。

程式碼客製化提示

• 圖檔路徑、副檔名（.png/.bmp）需與實際一致
• 可加入錯誤處理：On Error Resume Next 跳過缺檔頁面
• 擴充功能：同步設定字型顏色、版面配置等

VBA 自動化讓重複性工作從小時縮減為秒數，是 PPT 進階使用者必備技能。