需將上百張照片每張佔一頁插入 PPT？VBA 巨集瞬間搞定：

準備

假設 C:\Pictures 下有 1.jpg 至 100.jpg。

撰寫巨集

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

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

2. 關閉 VBE，代碼自動儲存。

執行

1. Ctrl+M 連按建立 100 張空白投影片。
2. Alt+F8 開啟巨集對話框 → 選 InsertPic →「執行」。

100 張圖片瞬間自動填入對應頁面背景，效率極高。