快速在PowerPoint裡插入100張圖片
如果要插入幾十甚至幾百張圖片，並且要求每張圖片插入到每張幻燈片
頁面上（即有幾張照片就要有幾張幻燈片）你會怎麼做？
按照常用的方法點選“插入→圖片→來自檔案”選單命令，然後一個一
個選擇需要的圖片，或者點選“格式→背景”命令，將圖片作為PowerPoint
的背景匯入，這樣也太浪費時間了。在這種情況下，可以藉助PowerPoint強
大的巨集功能，將多步操作合併為一步，批量插入圖片。
第一步：首先準備好圖片，假設在C盤下面的Pictures資料夾內有100張
jpg格式的圖片，如“C：/Pictures/1.jpg”、“C：/Pictures/2.jpg”、“
C：/Pictures/3.jpg”等，檔名是有序的數字。
第二步：啟動PowerPoint 2003，按下Alt+F11鍵開啟Visual Basic編輯
器視窗，點選“插入→模組”選單命令，在彈出的程式碼編輯視窗中輸入以下
程式碼：
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
第三步：關閉Visual Basic編輯器視窗，上面的模組程式碼會自動儲存。
此時，連續按Ctrl+M鍵建立與圖片數目相等（如：100）的多個空白幻燈片。
按Alt+F8鍵開啟巨集對話方塊，選中我們上面建立的InsertPic巨集，點選“執行”
即可，100張圖片很快就自動插入到幻燈片中了。