快速插入百張圖片

如果要插入幾十甚至幾百張圖片，并且要求每張圖片插入到每張幻燈片頁面上(即有幾張照片就要有幾張幻燈片)你會怎么做？

　　按照常用的方法點(diǎn)擊“插入→圖片→來自文件”菜單命令，然后一個一個選擇需要的圖片，或者點(diǎn)擊“格式→背景”命令，將圖片作為PowerPoint的背景導(dǎo)入，這樣也太浪費(fèi)時間了。在這種情況下，可以借助PowerPoint強(qiáng)大的宏功能，將多步操作合并為一步，批量插入圖片。 計(jì)算機(jī)學(xué)習(xí)網(wǎng)站www.boydavid.com

　　第一步：首先準(zhǔn)備好圖片，假設(shè)在C盤下面的Pictures文件夾內(nèi)有100張jpg格式的圖片，如“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等，文件名是有序的數(shù)字

　　第二步：啟動PowerPoint 2003，按下Alt+F11鍵打開Visual Basic編輯器窗口，點(diǎn)擊“插入→模塊”菜單命令，在彈出的代碼編輯窗口中輸入以下代碼： 計(jì)算機(jī)學(xué)習(xí)網(wǎng)站www.boydavid.com

　　Sub InsertPic() 電腦入門www.boydavid.com

　　Dim i As Integer

　　For i = 1 To ActivePresentation.Slides.Count

　　ActivePresentation.Slides(i).Select

　　With ActiveWindow.Selection.SlideRange

　　.FollowMasterBackground = msoFalse 電腦入門www.boydavid.com

　　.Background.Fill.UserPicture "C：Pictures" & i & ".jpg"

　　End With

　　Next

　　End Sub

　　第三步：關(guān)閉Visual Basic編輯器窗口，上面的模塊代碼會自動保存。此時，連續(xù)按Ctrl+M鍵建立與圖片數(shù)目相等(如：100)的多個空白幻燈片。按Alt+F8鍵打開宏對話框，選中我們上面建立的InsertPic宏，點(diǎn)擊“運(yùn)行”即可，100張圖片很快就自動插入到幻燈片中。 

服務(wù)器租用/服務(wù)器托管中國五強(qiáng)！虛擬主機(jī)域名注冊頂級提供商！15年品質(zhì)保障！--億恩科技[ENKJ.COM]