當(dāng)微軟的Office與微軟VB中的宏功能相遇時(shí)，便可以締造出強(qiáng)年夜的功能，例如在這篇文章中就介紹了操作這兩個(gè)工具瞬間插入上百張圖片。
若是要插入幾十甚至幾百張圖片，而且要求每張圖片插入到每張幻燈片頁面上（即有幾張照片就要有幾張幻燈片）你會(huì)怎么做？
按照常用的體例點(diǎn)擊“插入→圖片→來自文件”菜單呼吁，然后一個(gè)一個(gè)選擇需要的圖片，或者點(diǎn)擊“名目→布景”呼吁，將圖片作為PowerPoint的布景導(dǎo)入，這樣也太華侈時(shí)刻了。在這種情形下，可以借助PowerPoint強(qiáng)年夜的宏功能，將多步操作合并為一步，批量插入圖片。
第一步：首先籌備好圖片，假設(shè)在C盤下面的Pictures文件夾內(nèi)有100張jpg名目的圖片，如“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等，文件名是有序的數(shù)字
第二步：啟動(dòng)PowerPoint 2003，按下Alt+F11鍵打開Visual Basic編纂器窗口，點(diǎn)擊“插入→模塊”菜單呼吁，在彈出的代碼編纂窗口中輸入以下代碼：
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?1"
End With
Next
End Sub
第三步：封鎖Visual Basic編纂器窗口，上面的模塊代碼會(huì)自動(dòng)保留。此時(shí)，持續(xù)按Ctrl+M鍵成立與圖片數(shù)目相等（如：100）的多個(gè)空白幻燈片。按Alt+F8鍵打開宏對(duì)話框，選中我們上面成立的InsertPic宏，點(diǎn)擊“運(yùn)行”即可，100張圖片很快就自動(dòng)插入到幻燈片中
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點(diǎn)擊舉報(bào)。
