需將百張照片依序放入各投影片 (一張圖一頁)？手動插入太慢，用 VBA 巨集一鍵搞定。

前置準備

• 圖片命名為有序數字：1.jpg、2.jpg...100.jpg，置於固定資料夾 (如 C:\Pictures\)。

巨集碼

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

3. 關閉 VBE (碼自動儲存)。
4. 回 PPT，連按 Ctrl+M 新增與圖片數量相同的空白投影片 (如 100 頁)。
5. 按 Alt+F8 開啟巨集對話框，選 InsertPic → 「執行」。
6. 數秒內，百張圖自動填入各頁背景。

關鍵說明

• FollowMasterBackground = msoFalse：解除母版背景繼承，允許單頁設定背景。
• UserPicture：將指定圖檔設為投影片背景填滿。
• 若圖片非 JPG 或路徑不同，請修改碼中路徑與副檔名。
• 巨集僅在當前檔案有效，若常用可存入個人巨集活頁簿 (PERSONAL.XLSB)。

此法適合相簿、產品目錄、時間軸等大量圖片鋪排場景，將小時人力壓縮至秒級。