巧用VBA實現(xiàn)PowerPoint課件中圖片的批量插入

☆ 吳慶偉

（濟(jì)南市歷城第三職業(yè)中專，山東濟(jì)南 250113）

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

一、引言

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

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

二、VBA簡介

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

（1）VB用于開發(fā)設(shè)計標(biāo)準(zhǔn)的應(yīng)用程序，而VBA通常是使已有的應(yīng)用程序自動化，可以創(chuàng)建自定義的解決方案，適于定制已有的桌面應(yīng)用程序。

（2）VB具有自己的開發(fā)環(huán)境，而VBA必須寄生于已有的應(yīng)用程序（如Word，Excel，PowerPoint等）。

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

盡管存在這些區(qū)別，VBA和VB在結(jié)構(gòu)上仍然十分相似。事實上，如果已經(jīng)了解了VB，會發(fā)現(xiàn)學(xué)習(xí)VBA非?？?。相應(yīng)的，學(xué)完VBA會給學(xué)習(xí)VB打下堅實的基礎(chǔ)。而且，當(dāng)學(xué)會在PowerPoint中用VBA創(chuàng)建解決方案后，即已具備在 Word、Excel、Access、Outlook等中用 VBA 創(chuàng)建解決方案的大部分知識。因為在Microsoft產(chǎn)品系列中，VBA是相通的。

三、利用VBA實現(xiàn)PowerPoint課件中圖片的批量插入

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

1.準(zhǔn)備需要插入的圖片

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

2.編寫VBA宏命令

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

圖1

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

圖2

輸入結(jié)束，點擊關(guān)閉Visual Basic編輯器，輸入的程序模塊將自動保存。

這是一段簡單的VB程序，稍有程序設(shè)計基礎(chǔ)就可以看懂。

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

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

圖3

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

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

圖4

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

四、需要注意的問題

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

（2）實際應(yīng)用過程中，程序模塊里圖片的地址和名稱要根據(jù)具體情況進(jìn)行修改。

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