當微軟的office與微軟VB中的宏功能(neng)相遇時，便可以創(chuang)造出強大(da)的功能(neng)，介紹利用這兩個工具(ju)瞬間插(cha)入上百張圖片。
如果(guo)要插入(ru)幾(ji)(ji)十甚至(zhi)幾(ji)(ji)百張(zhang)圖(tu)片(pian)(pian)，并且要求每(mei)張(zhang)圖(tu)片(pian)(pian)插入(ru)到每(mei)張(zhang)幻燈片(pian)(pian)頁面上（即(ji)有(you)幾(ji)(ji)張(zhang)照片(pian)(pian)就(jiu)要有(you)幾(ji)(ji)張(zhang)幻燈片(pian)(pian)）
按照常用(yong)的(de)方法點擊“插(cha)入→圖片(pian)(pian)→來自文件”菜(cai)單命令，然后一個(ge)一個(ge)選擇(ze)需要的(de)圖片(pian)(pian)，或者點擊“格式(shi)→背景”命令，將圖片(pian)(pian)作為PowerPoint的背景導入，這樣(yang)也太浪費(fei)時(shi)間(jian)了。在這種情況下，可以借助(zhu)PowerPoint強(qiang)大的宏功能，將多步(bu)操作合并為一(yi)步(bu)，批量插入圖片(pian)。
第(di)一步：首先(xian)準備好圖(tu)片(pian)，假(jia)設在(zai)C盤下面的(de)(de)Pictures文(wen)件夾內有100張jpg格(ge)式的(de)(de)圖(tu)片(pian)，如(ru)“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等(deng)，文(wen)件名是有序(xu)的(de)(de)數字
第二步：啟動(dong)PowerPoint2003，按(an)下(xia)Alt+F11鍵打(da)開VisualBasic編(bian)輯器(qi)窗口(kou)，點(dian)擊“插入→模塊(kuai)”菜單(dan)命令，在彈出的代碼(ma)編(bian)輯窗口(kou)中輸入以下(xia)代碼(ma)：
SubInsertPic（）
DimiAsInteger
Fori=1ToActivePresentation.Slides.Count
ActivePresentation.Slides（i）.Select
WithActiveWindow.Selection.SlideRange
.FollowMasterBackground=msoFalse
.Background.Fill.UserPicture"C：Pictures"&i&".jpg";
EndWith
Next
EndSub
第三(san)步：關閉(bi)VisualBasic編輯器窗口，上面的(de)模塊(kuai)代碼會自動保存。此時，連續(xu)按Ctrl+M鍵建(jian)立(li)與圖片(pian)數(shu)目相等（如(ru)：100）的(de)多個空白幻燈(deng)片(pian)。按Alt+F8鍵打開(kai)宏(hong)對話框(kuang)，選中(zhong)建(jian)立(li)的(de)InsertPic宏(hong)，點擊“運行”即(ji)可(ke)，100張圖片(pian)很(hen)快(kuai)就自動插入(ru)到幻燈(deng)片(pian)中(zhong)
?
