痛點：幾十上百張圖片，逐張插入會瘋掉

相簿、產品目錄、照片牆等場景，需將大量圖片「一張圖對一張投影片」匯入。手動操作耗時極長，VBA 巨集能一次自動化完成。

前置準備

• 圖片命名規則：連續編號，如 1.jpg、2.jpg...100.jpg，置於固定資料夾（例：C:\Pictures\）。
• PowerPoint 2003/2007/2010/2013/2016/2019/365 均支援 VBA。

巨集程式碼

1. 按 Alt+F11 開啟 VBE 編輯器。
2. 「插入 → 模組」，貼上以下碼：

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

說明：程式碼假設圖片在 C:\Pictures\，檔名為 1.jpg~100.jpg。請根據實際路徑與副檔名修改引號內路徑。

執行步驟

1. 關閉 VBE 視窗（程式碼自動儲存）。
2. 在 PowerPoint 中連續按 Ctrl+M 新增與圖片數量相同的空白投影片（如 100 張）。
3. 按 Alt+F8 開啟「巨集」對話框，選 InsertPic → 「執行」。
4. 數秒內，百張圖片自動填入各投影片背景，完成！

進階變化

• 插入為圖片物件而非背景：將 .Background.Fill.UserPicture 改為 .Shapes.AddPicture，可保留圖片可移動、可縮放。
• 支援副檔名變化：用 Dir 函式掃描資料夾所有圖片檔，不拘泥連續編號。
• 加入錯誤處理：圖片數少於投影片數時避免報錯。

安全性設定

若巨集無法執行，請檢查「工具 → 巨集 → 安全性」，將安全性設為「中」或「低」（舊版），或在「檔案 → 選項 → 信任中心 → 巨集設定」啟用「啟用所有巨集」（新版）。