百張照片對應百頁投影片，VBA 一鍵搞定

手動插入百張圖片需數小時，VBA 巨集僅需秒數。前提：圖片檔名為連續編號（1.jpg、2.jpg...），存放於固定路徑。

前置準備

• 圖片資料夾：如 C:\Pictures\
• 檔名規則：1.jpg 至 100.jpg（對應投影片 1-100）

巨集程式碼

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 自動儲存

執行流程

1. 先建立與圖片數量相同的空白投影片：連按 Ctrl+M 100 次（或複製現有投影片）
2. Alt+F8 開啟巨集對話框 → 選 `InsertPic` →「執行」
3. 數秒內 100 頁投影片背景圖全部套用完成

程式碼客製化方向

• 路徑、副檔名、起始編號改為變數/InputBox 輸入
• 加入錯誤處理：`On Error Resume Next` 跳過缺檔
• 改為「插入圖片物件」而非背景填滿：`.Shapes.AddPicture ...`
• 同步設定圖片位置、大小、動畫

VBA 讓重複性大量操作自動化，是 PPT 進階使用者核心競爭力。