實現目標：將100張圖片分別放到100頁幻燈片里。

　　首先準備好需要使用的圖片，將其保存在同一個文件夾中，文件名是有序的數字：1.jpg，2.jpg……，100.jpg

　　接著，將當前PPT文件和圖片們也保存在同一個文件夾中。

　　然后，在PPT里點擊菜單“工具→宏→宏”，打開“宏”窗口，給將要編寫的程序取個名。

　　之后鼠標點擊“創建”按鈕，即進入Visual Basic編輯器界面，編寫代碼。

　　Sub photos()

　　Dim i As Integer

　　For i = 2 To 100

　　ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex

　　ActivePresentation.Slides(i).Select

　　With ActiveWindow.Selection.SlideRange

　　.FollowMasterBackground = msoFalse

　　.Background.Fill.UserPicture i & ".jpg"

　　End With

　　Next

　　End Sub

　　解釋一下上面的代碼：

　　◆ 因為新建的PPT已經有一頁幻燈片了，所以循環語句從2開始，到100。

　　◆ 最長的那行代碼的作用是插入一頁幻燈片，ppLayoutBlank 表示插入的幻燈片是空白型的。

　　◆ Background所在的那行代碼，是將圖片作為幻燈片的背景圖。

　　上面的程序，新插入了99頁幻燈片，然后為每一頁幻燈片設置了背景圖片，并不是真的將圖片插入到幻燈片了。還有，第一張幻燈片并沒有被操作到，需要手動操作。

　　如果要確實是將圖片插入到幻燈片，那么上面的程序修改為如下：

　　Sub photos()

　　Dim i As Integer

　　For i = 2 To 100

　　ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex

　　ActivePresentation.Slides(i).Select

　　With ActiveWindow.Selection.SlideRange

　　ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:= i & ".JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=173, Top:=129, Width:=574, Height:=481).Select

　　End With

　　Next

　　End Sub

　　注：圖片尺寸最后是一樣的，如果不是，那就要手動修改。