VBA編程在PPT交互式課件中的應(yīng)用

高宇

摘要：該文以英語(yǔ)隨堂評(píng)測(cè)為實(shí)例，闡述運(yùn)用PPT的ActiveX控件和VBA編程語(yǔ)言，實(shí)現(xiàn)PPT人機(jī)交互的設(shè)計(jì)思路和方法，從而使課件變得更生動(dòng)鮮活。英語(yǔ)隨堂評(píng)測(cè)實(shí)例主要包含項(xiàng)目多選、多組評(píng)測(cè)，多組分值回看，標(biāo)準(zhǔn)音試聽的功能。

關(guān)鍵詞：PPT；VBA；項(xiàng)目多選；多組評(píng)測(cè)；多組分值回看；標(biāo)準(zhǔn)音試聽

中圖分類號(hào)：TP311 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1009-3044（2017）02-0189-03

隨著PPT的不斷升級(jí)、完善，它已經(jīng)成為一線教師制作多媒體課件的首選。PPT以其簡(jiǎn)單易作、功能強(qiáng)大的特點(diǎn)為廣大教師所喜愛，但是PPT的交互問題一直以來都是大家熱議的話題。大多數(shù)教師在設(shè)計(jì)PPT課件交互時(shí)，一般只局限于利用超鏈接、動(dòng)作、按鈕、觸發(fā)器來創(chuàng)建交互，這種交互雖有助于改善課件呆板單調(diào)的演示方式，但實(shí)質(zhì)上只是調(diào)控幻燈片中的元素顯示與否，仍不具備智能性、可控性、靈活性的特征。本文通過對(duì)英語(yǔ)隨堂評(píng)測(cè)實(shí)例的研究，利用PPT的ActiveX控件和VBA編程語(yǔ)言，完成人機(jī)交互，使課件變得更生動(dòng)鮮活。

1 英語(yǔ)隨堂評(píng)測(cè)效果

2 英語(yǔ)隨堂評(píng)測(cè)實(shí)例的主要功能

2.1 課堂再現(xiàn)

在已經(jīng)學(xué)習(xí)了Buying Book的相關(guān)交流用語(yǔ)的前提下，學(xué)生運(yùn)用所學(xué)分組表演買書的情景對(duì)話，教師利用英語(yǔ)隨堂評(píng)測(cè)課件對(duì)各組的聽說兩方面表現(xiàn)進(jìn)行測(cè)評(píng)。

2.2 主要功能

（1）通過鼠標(biāo)單擊勾選各組對(duì)話正確讀音項(xiàng)，勾選項(xiàng)顯示內(nèi)容變色，同時(shí)該類記分項(xiàng)加分。

（2）各組聽音糾錯(cuò)表現(xiàn)，可以在聽音類的記分處，時(shí)時(shí)輸入。

（3）當(dāng)前組各類分值匯總，并保存當(dāng)前組值。

（4）更換組別時(shí)，可清零回復(fù)初始狀態(tài)。

（5）查看放映幻燈片后保存各組分值，以方便教師對(duì)各組表現(xiàn)進(jìn)行對(duì)比。

（6）每個(gè)考評(píng)項(xiàng)都配有標(biāo)準(zhǔn)發(fā)音的音頻，方便學(xué)生試聽、校音。

3 英語(yǔ)隨堂評(píng)測(cè)實(shí)例主要功能的實(shí)施方法

3.1 創(chuàng)建多選項(xiàng)

實(shí)現(xiàn)多選項(xiàng)功能主要運(yùn)用ActiveX控件中的復(fù)選框和標(biāo)簽控件，同時(shí)結(jié)合VBA編程最終實(shí)現(xiàn)可選中多項(xiàng)，被選項(xiàng)變色，標(biāo)簽控件顯示值自動(dòng)增值的效果。

1）插入復(fù)選框：選擇開發(fā)工具選項(xiàng)中的復(fù)選框控件，在幻燈片中單擊。

2）復(fù)選框編輯：選中幻燈片中的復(fù)選框，單擊右鍵選屬性項(xiàng)。

Caption屬性用于修改復(fù)選框顯示名稱為對(duì)應(yīng)單詞，如fiction。

Font屬性用于修改復(fù)選框顯示內(nèi)容的字體、字號(hào)。

Text Align屬性用修改復(fù)選框的對(duì)齊方式。將對(duì)齊方式設(shè)2（居中）。

ForeColor屬性用修改復(fù)選框顯示內(nèi)容字的顏色，設(shè)置為黑色。

BackColor屬性用修改復(fù)選框背景色。雖然BackStyle屬性當(dāng)設(shè)為0時(shí)，復(fù)選框背景為透明，但由于PPT放映時(shí)，無法顯示控件背景透明色，因此復(fù)選框背景色設(shè)為同幻燈片背景色一致。

3）插入標(biāo)簽控件

Caption屬性設(shè)置值為0。

BackColor屬性設(shè)置為白色。

TextAlign屬性設(shè)置為2，文本居中。

4）VBA編程部分

（1）復(fù)選框的單擊事件，實(shí)現(xiàn)被選擇項(xiàng)復(fù)選框顯示值字體顏色為紅色；不被選擇項(xiàng)字體顏色為黑色。

（2）標(biāo)簽的顯示值隨著復(fù)選框的選中與取消而變化。詳細(xì)VBA代碼見CheckBox10_Click（）。

3.2 匯總當(dāng)前組別總分，保存信息

當(dāng)前功能主要運(yùn)用ActiveX控件中的命令按鈕及用戶窗體，同時(shí)結(jié)合VBA編程最終實(shí)現(xiàn)以窗口消息形式匯總總分的效果。

1）插入命令按鈕：開發(fā)工具中的命令按鈕，在幻燈片中單擊創(chuàng)建。

2）命令按鈕的設(shè)置：

（1）Caption屬性：設(shè)置命令按鈕顯示名稱，設(shè)置為“單組總分”。

（2）BackColor屬性：設(shè)命令按鈕按鈕顏色，設(shè)置為“黃色”。

3）插入用戶窗體，插入提示所需控件，并設(shè)置。

（1）雙擊命令按鈕，進(jìn)入VBA編輯狀態(tài)，選擇插入菜單下用戶窗體，新建窗體，進(jìn)入窗體編輯。

（2）在窗體中插入兩個(gè)窗體控件圖像，分別插入笑臉、哭臉兩個(gè)圖片并對(duì)齊，1個(gè)標(biāo)簽控件內(nèi)容根據(jù)總分情況在VBA在運(yùn)行中給定。

4）VBA編程部分

（1）單組總分單擊事件，實(shí)現(xiàn)對(duì)當(dāng)前組求和，并根據(jù)不同分?jǐn)?shù)，給窗體標(biāo)簽顯示名稱賦值，同時(shí)決定圖像控件的顯示。

（2）保存各組各項(xiàng)分值。在VBA編輯狀態(tài)插入新的窗體userform2，并修改窗體的顯示名稱，通過VBA編程動(dòng)態(tài)創(chuàng)建窗體標(biāo)簽控件組，并動(dòng)態(tài)賦值。詳細(xì)VBA代碼見CommandButton1_Click（）

（3）顯示保存的各組分值信息，進(jìn)行評(píng)比

（1）在幻燈片中插入一個(gè)ActiveX控件命令按鈕，設(shè)置命令按鈕的caption屬性為“查看各組信息”，BackColor屬性設(shè)置為黃色。詳細(xì)VBA代碼如CommandButton_Click（）

（2）命令按鈕單擊事件（click），顯示各組分值所在窗體。詳細(xì)代碼如CommandButton3_Click（）

3.3 清零

為了不重復(fù)工作，不同組別，只用一個(gè)幻燈片，就需要對(duì)各控件進(jìn)行初始化，即清零。

1）在幻燈片添加一個(gè)命令按鈕，Caption屬性設(shè)為“清零”。在該命令按鈕的單擊事件，添加清零命令。詳細(xì)VBA代碼見CommandButton2_Click（）。

2）結(jié)束幻燈片放映時(shí)，自動(dòng)執(zhí)行復(fù)選框、文本框、標(biāo)簽控件的清零，以便下一部課件運(yùn)行的正常。詳細(xì)VBA代碼見OnSlideShowTerminate（）宏

3.4 每個(gè)考評(píng)項(xiàng)提供學(xué)生試聽、糾音的音頻

插入菜單下音頻——錄制音頻或者文件中的音頻。

4 有待研究的問題

1）本實(shí)例中ActiveX控件的透明背景在PPT放映中無法體現(xiàn)，至使在放映中控件間、聲音有相互遮蓋的現(xiàn)象。

2）對(duì)ActiveX復(fù)選框控件選中后變色的操作需要對(duì)各個(gè)控件的單擊事件重復(fù)書寫，有待改進(jìn)。本想采用調(diào)用子程序和控件數(shù)組的方式解決，但在VBA中對(duì)非窗體控件沒有控件數(shù)組的直接解決辦法，因此未能解決，在這里也請(qǐng)同行們共同研究商討。

5 提示內(nèi)容

1）在VBA程序代碼中由“”引導(dǎo)的句子，是VBA中的注釋，不是執(zhí)行語(yǔ)句，可以不寫，主要作用是提示當(dāng)前命令的作用，幫助理解程序。

2）為了放映時(shí)能正確放映，文件保存請(qǐng)另存為“啟用宏P(guān)PT演示文稿（*PPTM）

參考文獻(xiàn)：

[1] 朱建國(guó). PPT新視角VBA應(yīng)用技術(shù)[M]. 電子工業(yè)出版社，2013.