VBA 宏一鍵將資料夾內連號圖片分別填入各投影片背景

適用情境

資料夾內有大量連號命名圖片（如 1.jpg、2.jpg…100.jpg），需每張圖片佔一張投影片且鋪滿背景。

操作步驟

1. 確認圖片路徑與命名規則（範例：C:\Pictures\1.jpg 至 100.jpg）。
2. 開啟 PowerPoint → Alt+F11 開啟 VBE。
3. 「插入」→「模組」，貼上以下程式碼：

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

4. 關閉 VBE（程式碼自動儲存）。
5. 在 PowerPoint 中連按 Ctrl+M 建立與圖片數量相同的空白投影片（例：100 張）。
6. Alt+F8 開啟巨集對話框 → 選 InsertPic → 「執行」。

結果

百張圖片瞬間分別填入各投影片背景，省去手動插入的繁瑣。

進階提示

• 若圖片非連號命名，可修改程式碼讀取陣列或 FileSystemObject 列舉檔案。
• 若需插入為「圖片物件」而非背景，改用 .Shapes.AddPicture 方法。

善用 VBA，大量圖片匯入不再是夢魘。