需將數十、上百張照片逐張插入對應投影片？手動操作極其耗時。善用 PowerPoint 巨集 (VBA)，一次跑完百張圖片匯入，效率提升百倍。

前置準備

• 照片命名規則：依序編號，如 1.jpg、2.jpg…100.jpg，置於固定資料夾（例：C:\Pictures\）。
• PowerPoint 版本：2003/2007/2010/2013/2016/2019/365 皆適用（VBA 碼通用）。

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

說明：迴圈跑過所有投影片，將第 i 張投影片的背景設為 C:\Pictures\i.jpg。若照片張數與投影片數不一致，需自行調整迴圈上限或新增判斷邏輯。

執行步驟

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

進階應用與注意

• 改為插入圖片物件而非背景：將 .Background.Fill.UserPicture 改為 .Shapes.AddPicture，可保留圖片可移動、可縮放、可套用動畫。
• 支援不同副檔名：在程式碼中加入副檔名判斷或陣列對應。
• 錯誤處理：加入 On Error Resume Next 避免缺檔中斷。
• 儲存含巨集的簡報：須另存為 .pptm (巨集啟用簡報) 才能保留 VBA 碼。

掌握 VBA 批次匯入，相簿、產品目錄、畢業紀念冊等大量圖片簡報製作不再是苦差事。