需將幾十上百張圖片對應插入同等數量投影片（第 1 張圖→第 1 頁...）？手動插入極其低效。利用 VBA 宏配合有序檔名，一鍵批量完成。

前置條件

• 圖片集中於單一資料夾（如 C:\Pictures\）。
• 檔名為有序數字：1.jpg、2.jpg...60.jpg。
• 已建立與圖片數量相同的空白投影片（連按 Ctrl+M 快速新增）。

VBA 宏程式碼

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

```vba Sub InsertPic() Dim i As Integer For i = 1 To ActivePresentation.Slides.Count ActivePresentation.Slides(i).Select With ActiveWindow.Selection.SlideRange .FollowMasterBackground = msoFalse .Background.Fill.UserPicture "C:\Pictures\" & i & ".jpg" End With Next End Sub ```

3. 關閉 VBE（自動儲存）。
4. Alt+F8 開啟「巨集」對話框 → 選 InsertPic → 「執行」。

代碼邏輯：迴圈遍歷所有投影片，關閉「跟隨母版背景」，將對應編號圖片設為投影片背景填滿。

擴展應用：

• 修改路徑變數化、支援副檔名判斷、加入錯誤處理（檔案不存在跳過）。
• 若需插入為「圖片物件」而非背景，改用 Shapes.AddPicture 方法並設定 Left/Top/Width/Height。
• PowerPoint 2007+ 也可用「相簿」功能無代碼實現（見文章 115529），但宏法更靈活可整合進自動化流程。