當微軟的Office與微軟VB中的宏功能相遇時，便可以創造出強大的功能，例如在這篇文章中就介紹了利用這兩個工具瞬間插入上百張圖片。 如果要插入幾十甚至幾百張圖片，並且要求每張圖片插入到每張幻燈片頁面上(即有幾張照片就要有幾張幻燈片)你會怎麼做?
按照常用的方法點選“插入→圖片→來自檔案”選單命令，然後一個一個選擇需要的圖片，或者點選“格式→背景”命令，將圖片作為 PowerPoint的背景 匯入，這樣也太浪費時間了。在這種情況下，可以藉助PowerPoint強大的宏功能，將多步操作合併為一步，批次插入圖片。
第一步：首先準備好圖片，假設在C盤下面的Pictures資料夾內有100張jpg格式的圖片，如“C：Pictures1.jpg”、 “C：Pictures2.jpg”、“C：Pictures3.jpg”等，檔名是有序的數字;
第二步：啟動PowerPoint，按下Alt+F11鍵開啟VisualBasic編輯器視窗，點選“插入→模組”選單命令，在彈出的程式碼編 輯 視窗中輸入以下程式碼： 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 ;
第三步：關閉VisualBasic編輯器視窗，上面的模組程式碼會自動儲存。此時，連續按Ctrl+M鍵建立與圖片數目相等(如：100)的多 個空白幻燈 片。按Alt+F8鍵開啟宏對話方塊，選中我們上面建立的InsertPic宏，點選“執行”即可，100張圖片很快就自動插入到幻燈片中
當微軟的Office與微軟VB中的宏功能相遇時，便可以創造出強大的功能，例如在這篇文章中就介紹了利用這兩個工具瞬間插入上百張圖片。 如果要插入幾十甚至幾百張圖片，並且要求每張圖片插入到每張幻燈片頁面上(即有幾張照片就要有幾張幻燈片)你會怎麼做?
按照常用的方法點選“插入→圖片→來自檔案”選單命令，然後一個一個選擇需要的圖片，或者點選“格式→背景”命令，將圖片作為 PowerPoint的背景 匯入，這樣也太浪費時間了。在這種情況下，可以藉助PowerPoint強大的宏功能，將多步操作合併為一步，批次插入圖片。
第一步：首先準備好圖片，假設在C盤下面的Pictures資料夾內有100張jpg格式的圖片，如“C：Pictures1.jpg”、 “C：Pictures2.jpg”、“C：Pictures3.jpg”等，檔名是有序的數字;
第二步：啟動PowerPoint，按下Alt+F11鍵開啟VisualBasic編輯器視窗，點選“插入→模組”選單命令，在彈出的程式碼編 輯 視窗中輸入以下程式碼： 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 ;
第三步：關閉VisualBasic編輯器視窗，上面的模組程式碼會自動儲存。此時，連續按Ctrl+M鍵建立與圖片數目相等(如：100)的多 個空白幻燈 片。按Alt+F8鍵開啟宏對話方塊，選中我們上面建立的InsertPic宏，點選“執行”即可，100張圖片很快就自動插入到幻燈片中