巧用VBA實現PowerPoint課件中圖片的批量插入

☆ 吳慶偉

（濟南市歷城第三職業中專，山東濟南 250113）

在PowerPoint課件中插入圖片可以使課件更加活潑、生動、更具吸引力。然而，當需要批量插入圖片時，“插入／圖片”命令就顯得繁瑣而無趣。本文介紹了一種基于VBA的批量插入方法，很好地解決了這一問題。

一、引言

PowerPoint（簡稱PPT）是目前最常用的演示設計工具之一。它簡單易用，功能完善，并有強大的多媒體功能，可以插入圖片、聲音、視頻等文件，使得課件圖、文、聲、形并茂，更具吸引力。正是這些優點，使PowerPoint受到廣泛的青睞。

在PowerPoint中插入圖片的操作非常簡單，通常執行“插入／圖片／來自文件…”命令，找到需要插入的圖片就可以，或者點擊“格式／背景”命令，也可以把圖片作為背景插入。然而，當遇到需要批量插入圖片的情況時，上述方法就顯得單調、繁瑣、浪費時間了。幸好MS Office辦公軟件給我們提供了強大的宏功能，可以很好地解決這一問題。

二、VBA簡介

VBA(Visual Basic For Applications)是微軟開發出來在其桌面應用程序中執行通用的自動化(OLE)任務的編程語言。VBA可以看做是Visual Basic的一個子集，但VBA又不同于VB。二者的區別主要體現在以下幾個方面：

（1）VB用于開發設計標準的應用程序，而VBA通常是使已有的應用程序自動化，可以創建自定義的解決方案，適于定制已有的桌面應用程序。

（2）VB具有自己的開發環境，而VBA必須寄生于已有的應用程序（如Word，Excel，PowerPoint等）。

（3）要運行VB開發的應用程序，用戶不必安裝VB集成開發環境，因為VB開發出的應用程序是可執行文件(*.exe)。而VBA開發的程序必須依賴于它的父應用程序，例如 Word、PowerPoint等。

盡管存在這些區別，VBA和VB在結構上仍然十分相似。事實上，如果已經了解了VB，會發現學習VBA非常快。相應的，學完VBA會給學習VB打下堅實的基礎。而且，當學會在PowerPoint中用VBA創建解決方案后，即已具備在 Word、Excel、Access、Outlook等中用 VBA 創建解決方案的大部分知識。因為在Microsoft產品系列中，VBA是相通的。

三、利用VBA實現PowerPoint課件中圖片的批量插入

在PowerPoint課件中插入圖片的方法，大家都已經掌握。下面就利用PowerPoint的VBA宏功能，一步步實現圖片的批量插入。

1.準備需要插入的圖片

將需要插入的圖片準備好，放在一個文件夾里，并將圖片依次有規律地命名。例如：在F盤下新建文件夾，名稱為pictures，需要插入的所有圖片都放在此文件夾里，并依次命名為“pic1”、“pic2”、“pic3”……

2.編寫VBA宏命令

打開 PowerPoint2003，依次單擊“工具／宏／Visual Basic編輯器”命令，或直接按下Alt＋F11鍵，打開Visual Basic編輯器窗口（如圖1）。

圖1

在打開的Visual Basic編輯器窗口中，點擊“插入／模塊”菜單命令，在彈出的代碼編輯窗口中輸入以下代碼：如圖2。

圖2

輸入結束，點擊關閉Visual Basic編輯器，輸入的程序模塊將自動保存。

這是一段簡單的VB程序，稍有程序設計基礎就可以看懂。

3.利用宏命令批量插入圖片

回到PowerPoint編輯窗口，使用Ctrl＋M快捷鍵新建與圖片數目相等的多個空白幻燈片。然后選擇“工具／宏／宏…”命令，或按下Alt＋F8快捷鍵，打開宏對話框，選中我們上面建立的InsertPic宏，點擊“運行”即可，多張圖片很快就自動插入到幻燈片中（如圖3）。

圖3

4.添加“批量插入圖片”按鈕

如果需要經常在PowerPoint中批量插入圖片，可以將編寫的宏添加到工具欄上。單擊菜單“工具／自定義”命令，打開“自定義”對話框并切換到“命令”選項卡，選中“類別”下邊列表框中的“宏”選項，此時在“命令”列表框中就會出現我們剛才新添加的宏了（如圖4）。

圖4

拖動“InsertPic”宏到工具欄中的任意位置，松開鼠標后，在工具欄上就添加了一個名為“InsertPic”的按鈕。右擊該按鈕可以自定義按鈕的名稱、背景等等。如可以將按鈕改名為“批量插入圖片”。以后只要單擊工具欄上的“批量插入圖片”按鈕，就可以自動完成背景圖片的插入工作了。

四、需要注意的問題

（1）這種方法是將圖片作為背景插入每張幻燈片的。

（2）實際應用過程中，程序模塊里圖片的地址和名稱要根據具體情況進行修改。

（3）如果按照上述方法不能實現圖片的批量插入，可能是PowerPoint宏的安全性設得太高了。可以單擊“工具／宏／安全性”命令，將“安全級”設為“中”，重新打開PowerPoint，就可以正常插入了。