如何用ActiveX控件和VBA制作PowerPoint交互課件

文 周慧英 袁賀麗

如何用ActiveX控件和VBA制作PowerPoint交互課件

文 周慧英 袁賀麗

一、引言

隨著現(xiàn)代教育技術(shù)在中職學校的推進和發(fā)展，多媒體技術(shù)在課堂教學中已得到廣泛應(yīng)用，所謂多媒體技術(shù)是指利用計算機綜合處理多種媒體信息——文本、圖形、圖像、聲音、視頻等，使多種信息建立邏輯連接，集成為一個具有交互性的系統(tǒng)，多媒體技術(shù)的核心特征為集成性、交互性。通過多種感官刺激，改變了傳統(tǒng)教學模式，更利于學生接受所學課程內(nèi)容。［1］

PowerPoint是Microsoft Office軟件包組件之一，是可視化演示文稿制作工具，利用該軟件可以實現(xiàn)將多種媒體信息有機地結(jié)合在一起，因其操作簡單、制作周期短、課堂教學過程中可以實現(xiàn)多顯示器分別顯示不同頁面、方便調(diào)整教學內(nèi)容等優(yōu)勢已經(jīng)成為教師制作課件的首選軟件。［2］但是大多數(shù)教師在制作課件時只用到了PowerPoint的基本演示功能，很少用到它的交互功能，如果在PowerPoint中用VBA編程制作課堂練習，更能使課堂教學變得生動活潑，激發(fā)學生的學習興趣。

二、VBA簡介

所謂VBA就是MicrosoftVisualBasic的宏語言版本（用于編寫Windows應(yīng)用程序），它是VisualBasicforApplications的英文縮寫。將ActiveX控件插入到幻燈片中，然后用VBA編寫程序控制這些ActiveX控件，從而達到需要的交互效果。本文將介紹一種利用ActiveX控件和VBA制作交互性課件的一般方法。［3］

三、用VBA制作交互性課件實例介紹

1.單選題的制作步驟

下面以一個金屬材料類單選題為例說明交互性課件制作的步驟：

【例】金屬材料受外力作用產(chǎn)生變形而不破壞的能力稱為_____。

A.彈性 B.塑性

C.韌性 D.強度

該例中選項B為正確答案，制作過程如下：

（1）新建 Microsoft PowerPoint演示文稿（該例中采用Office 2013版本），在新建幻燈片中輸入題面和選項文字。

如果菜單項中沒有“開發(fā)工具”選項，可以通過“文件選項自定義功能區(qū)”，在主選項卡中將“開發(fā)工具”選項卡打鉤，將其添加到主菜單中，這樣使用頻繁的項目就可以在主菜單中直接調(diào)用（界面如圖1所示）。采用同樣的方法也可以在主菜單中新建或者添加其他常用工具選項。

圖1 PowerPoint 2013中的“開發(fā)工具”選項卡

（2）用鼠標單擊控件中的選項按鈕（如圖2所示），然后在幻燈片適當位置拖動鼠標左鍵，畫出選項按鈕合適的大?。ó嫵鲋笠部梢赃m當調(diào)整）。

圖2 選項按鈕

（3）設(shè)置選項按鈕控件屬性的方法有兩種：①先用鼠標選中選項按鈕，然后在控件工具箱中單擊屬性選項，即可調(diào)入屬性表。②在選項按鈕上單擊鼠標右鍵，調(diào)出快捷菜單，選擇“屬性表”也可實現(xiàn)同樣的效果。

在按鈕屬性中主要設(shè)置Caption，F(xiàn)ont，Value這3個屬性的值（如圖3所示）。Caption屬性值用以確定選項按鈕旁邊顯示的文字信息，這里設(shè)置為“A.”；Font屬性值用以確定按鈕旁邊的文字的字體和大?。籚alue屬性值用以確定選項按鈕起始的默認狀態(tài)，它有2個值，一個是True（選項按鈕一開始即為選中狀態(tài)），另一個是False（選項按鈕不處于選中狀態(tài)），一般在設(shè)置該屬性時將Value值設(shè)置為False（該選項按鈕的初始狀態(tài)為“未選中”）。之后用同樣的方法制作“B.”“C.”“D.”三個單選按鈕；或者采用復(fù)制“A.”按鈕，然后修改其屬性的方法獲得“B.”“C.”“D.”三個單選按鈕。接著將這4個選項按鈕對齊放置在選擇題中相應(yīng)的4個備選答案文字左邊合適的位置。

（3）為了在VBA編程中區(qū)分每一個控件按鈕，需要先定義4個選項按鈕對象的名稱。選中文字為“A.”的選項按鈕，在“屬性”對話框中的“（名稱）”屬性項后面的文本框中輸入But1（如圖3所示）。按照同樣的方法，定義其他3個選項按鈕對象的名稱分別為But2，But3，But4。

圖3 控件屬性表

（4）將控件屬性設(shè)置完成后，即可編寫VBA代碼，實現(xiàn)交互過程。步驟為：

①雙擊幻燈片中命名為“But1”的選項按鈕控件，或者單擊圖4所示的VisualBasic按鈕即可進入VBA編程狀態(tài)。

圖4 Visual Basic

Private Sub But1_Click（）（該句含義為：單擊But1選項按鈕）

lf But1.Value = True Then text=Magbox（"選擇錯誤！請再想想！"，vbOKOnly，"顯示結(jié)果"）（該句含義為：如果But1選項按鈕為選中狀態(tài)則出現(xiàn)如圖5所示的結(jié)果，單擊“確定”返回幻燈片播放模式）

End Sub

圖5

②雙擊“But2”選項按鈕，輸入語句如下：

在編程窗口中已出現(xiàn)的“Private Sub But2_ Click（）”和“End Sub”語句之間輸入：

lf But2.Value = True Then Text=MsgBox（"選擇正確！恭喜你！"， vbOKOnly，"顯示結(jié)果"）

③But3和But4兩個選項按鈕參照But1制作。

代碼輸入完成以后，關(guān)閉MicrosoftVisualBasic窗口，返回到幻燈片編輯窗口，播放幻燈片即可出現(xiàn)如圖5的畫面。

2.多選題的制作步驟

下面以一個金屬材料類多選題為例說明交互性課件制作的步驟：

【例】下列關(guān)于回火目的正確的是_____。

A.降低內(nèi)應(yīng)力 B.使工件獲得適當?shù)挠捕?/p>

C.增大脆性 D.使淬火組織趨于穩(wěn)定

該例中選項A，B，D為正確答案。

多選題與單選題制作的不同之處在于：控件按鈕和VBA代碼。

（1）在“控件工具箱”中選擇“復(fù)選框（CheckBox）”按鈕，其創(chuàng)建方法及屬性設(shè)置與單選按鈕基本相同。名稱依次命名為：“BOX1，BOX2，BOX3，BOX4”。

（2）在“控件工具箱”中選擇“命令按鈕”，添加到幻燈片上，命令按鈕上注明文字為：“查看結(jié)果”。因為是多選題，答案有多個，所以要書寫多個條件，條件之間用and連接，表示同時滿足這幾個條件，例如A、B、D選項是正確的，則需要輸入如下語句：

lf CheckBox1.Value=True And CheckBox2. Value=True And CheckBox4.Value=True Then

給出正確的提示信息同單選題

else

給出錯誤的提示信息同單選題

end if

3.完善課件功能

（1）在幻燈片適當?shù)牡胤讲迦胍幻畎粹o，將其Caption屬性修改為“重新選擇”。

（2）雙擊“重新選擇”按鈕，在編輯窗口中的“PrivateSubCommandButton2_Click（）”和“EndSub”代碼之間輸入：

Box1.Value = False

Box2.Value = False

Box3.Value = False

Box4.Value = False

（3）課件播放效果如圖6所示。

圖6 演示結(jié)果

四、結(jié)束語

至此，VBA交互課件制作完畢，但是，要想在其他電腦上正常播放，還要保存為“啟用宏的演示文稿”，或者降低宏安全性。

在PowerPoint制作幻燈片的過程中，充分利用VBA這一工具，提升PPT文件的技術(shù)含量，可使幻燈片的交互功能得到增強。使幻燈片更人性化、智能化，在課堂教學更能發(fā)揮學生學習的積極性和主動性。

［1］ 張建國.現(xiàn)代教育技術(shù)［M］.北京：國防工業(yè)出版社，2009.

［2］ 吳華，蘭星.Office2010辦公軟件應(yīng)用標準教程［M］.北京：清華大學出版社，2012.

［3］ 胡增順.POWERPOlNT多媒體課件制作實驗與實踐［M］.北京：清華大學出版社，2013.

［4］ PowerPoint中利用VBA制作智能課件［EB/OL］.http：//wenku.baidu.com/ view/6a65038a680203d8ce2f2480.html.

［5］ 李錚.利用VBA制作智能測驗題課件［J］.中國教育技術(shù)裝備，2007（12）：55-56.

作者信息

周慧英，碩士，高級講師。焦作市技師學院，454003