課件常需每頁不同背景圖，手動重複操作極耗時。用 VBA 巨集自動化，秒級完成：

準備工作

1. 任意位置建資料夾 Background（如 F:\Background）。
2. 將背景圖片依序命名為 1.jpg、2.jpg、3.jpg… 放入該資料夾。

建立巨集

1. 「工具」→「巨集」→「Visual Basic 編輯器」（或 Alt+F11）。
2. 左側專案視窗右鍵「VBAProject」→「插入」→「模組」。
3. 右側代碼視窗貼上 VBA 代碼（核心行：.Background.Fill.UserPicture "F:\Background\" & i & ".jpg"，路徑/副檔名請自行調整）。
4. 關閉編輯器，代碼自動儲存。儲存簡報為 F:\Background\批量插入背景圖片.ppt。

加入工具列按鈕一鍵呼叫

1. 「工具」→「自訂」→「命令」頁籤 →「類別」選「巨集」。
2. 將「CharuPic」巨集拖曳到工具列任意位置。
3. 右鍵按鈕 → 重新命名「批量插入背景圖片」，更換圖示。

使用

以後只需點工具列該按鈕，所有投影片背景圖自動依序填入。若無反應，請將巨集安全性設為「中」。

一次編寫，終身受用，大幅減少機械重複勞動。