編者按:快速插圖PPT圖片并不是一種傳說,當微軟的Office與微軟VB中的宏功能相遇時,便可以創(chuàng)造出強大的功能,例如在這篇文章中就介紹了利用這兩個工具瞬間插入上百張圖片。
如果要插入幾十甚至幾百張圖片,并且要求每張圖片插入到每張幻燈片頁面上(即有幾張照片就要有幾張幻燈片)你會怎么做?
按照常用的方法點擊“插入→圖片→來自文件”菜單命令,然后一個一個選擇需要的圖片,或者點擊“格式→背景”命令,將圖片作為 PowerPoint的背景導入,這樣也太浪費時間了。在這種情況下,可以借助PowerPoint強大的宏功能,將多步操作合并為一步,批量插入圖片。
第一步:首先準備好圖片,假設在C盤下面的Pictures文件夾內(nèi)有100張jpg格式的圖片,如“C:Pictures1.jpg”、“C:Pictures2.jpg”、“C:Pictures3.jpg”等,文件名是有序的數(shù)字
第二步:啟動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 |
版權聲明: 本站資源均來自互聯(lián)網(wǎng)或會員發(fā)布,如果侵犯了您的權益請與我們聯(lián)系,我們將在24小時內(nèi)刪除!謝謝!
轉載請注明: 快速插圖PPT圖片_1秒100張