陳亞天

[摘 要]很多人使用PowerPoint制作PPT課件，卻因不熟悉編程而不能發(fā)揮PowerPoint強(qiáng)大的功能，本文簡單介紹PowerPoint2003中常用控件及VBA知識(shí)，通過制作單選題、多選題和填空題等案例，讓大家能迅速掌握并制作出具有交互功能的PPT課件練習(xí)題。

[關(guān)鍵詞]PowerPoint2003 PPT課件 控件 VBA

[中圖分類號(hào)] G484 [文獻(xiàn)標(biāo)識(shí)碼] A [文章編號(hào)] 2095-3437（2013）07-0054-02

自1990年微軟（Microsoft）的PowerPoint問世后，這款軟件在國內(nèi)被越來越多的教育工作者使用，在信息化教育大環(huán)境推動(dòng)下，很多人提倡使用多媒體課件開展教育活動(dòng)。因?yàn)镻owerPoint上手容易，成為大多數(shù)教師制作課件的首選。使用中，很多老師對(duì)幻燈片的基本操作以及文字、圖片、音視頻等素材的編排都比較熟悉，但制作具有交互功能的練習(xí)題卻感到很棘手。利用PowerPoint中的編程雖可以實(shí)現(xiàn)，但很多人擔(dān)心編程難以掌握而望而卻步。事實(shí)上并不需要太多的專業(yè)編程知識(shí)，利用PowerPoint自帶的控件，配合一些簡單的語句就可以實(shí)現(xiàn)PPT課件強(qiáng)大的交互功能。

一、PowerPoint中的控件及VBA的簡單知識(shí)

在Microsoft Office系列軟件中，提供了一組這樣的工具，稱為控件（亦稱ActiveX控件），可以使用它在PowerPoint演示文稿中控制一組預(yù)定義的事件（或執(zhí)行一段程序代碼）來達(dá)到我們需要的目的。在Powerpoint（以2003為例）中選擇菜單“視圖-工具欄-控件工具箱”，如圖1。

（一）常用的控件

文本框（TextBox）：可輸入文本，可形成滑動(dòng)條展示于大量的文字，亦可用于設(shè)計(jì)填空題；

命令按鈕（CommandButon）：用于制作按鈕，常通過點(diǎn)擊后執(zhí)行一定的代碼；

選項(xiàng)按鈕（OptionButton）：通常一組使用，只能選中其中一個(gè)，可用于制作單項(xiàng)選擇題或判斷題；

標(biāo)簽（Label）：用于表現(xiàn)靜態(tài)文字信息，如顯示選擇題、判斷題的題目等

復(fù)選框（CheckBox）：是一個(gè)選擇控件，可用于多項(xiàng)選擇題的制作。

（二）控件中常涉及的屬性

以命令按鈕為例，在控件工具箱中選擇命令按鈕，鼠標(biāo)變成十字形，在頁面上點(diǎn)擊或拖拉會(huì)出現(xiàn)一個(gè)“CommandButton1”的按鈕，右擊鼠標(biāo)，選擇“屬性”，彈出一個(gè)屬性窗口，如圖2。其中常用的參數(shù)有：

名稱——控件默認(rèn)名，一般不作修改，如果修改，會(huì)影響到VBA中的對(duì)象名稱；

Caption——控件顯示名，如將Caption后面的CommandButon1改成確定，我們將發(fā)現(xiàn)頁面上命令按鈕的文字就變成了確定；

Font——用于設(shè)置控件顯示名的字體、大小等；

BackColor——設(shè)置按鈕背景色；

Height、Left、Top、Width——用于設(shè)置命令按鈕的位置及大小；

Picture——可導(dǎo)入圖片作為命令按鈕的背景圖。

（三）VBA簡介

VBA是Visual Basic for Application的簡寫，它以應(yīng)用程序開發(fā)語言VISUAL BASIC語言為基礎(chǔ)，經(jīng)過修改并運(yùn)行在Microsoft Office的應(yīng)用程序，可以使這些應(yīng)用程序（PowerPoint、Excel等）自動(dòng)化，極大地增加Office系列軟件的交互性。在PPT中，對(duì)于控件如果不添加代碼，控件的使用價(jià)值將大大降低。

仍以命令按鈕為例，雙擊頁面中的命令按鈕，頁面將跳轉(zhuǎn)到VB的編輯界面，如圖3。如果我們在光標(biāo)默認(rèn)閃爍行中添加代碼，就意味著PPT放映中點(diǎn)擊命令按鈕后，將執(zhí)行添加的程序代碼。

二、使用控件制作PPT課件中交互練習(xí)題

（一）PPT課件中的單選題

在PPT頁面上利用普通的文本框輸入題干，插入4個(gè)選項(xiàng)按鈕控件（OptionButton），將屬性里面的Caption修改為選擇項(xiàng)內(nèi)容，具體如圖4。將題干和選擇項(xiàng)位置調(diào)整合適位置。雙擊第一個(gè)選擇按鈕控件進(jìn)入VB編輯界面，可看到有OptionButton1-4四個(gè)對(duì)象，對(duì)OptionButton1、OptionButton2分別輸入：

Private Sub OptionButton1_Click（）

MsgBox （"錯(cuò)誤"）

End Sub

以及Private Sub OptionButton2_Click（）

MsgBox （"正確"）

End Sub

其余2個(gè)選擇按鈕的代碼操作類似OptionButton1代碼的輸入。

運(yùn)行PPT，點(diǎn)擊B選項(xiàng)，會(huì)跳出“正確”的提示框，點(diǎn)擊其他選項(xiàng)，會(huì)跳出“錯(cuò)誤”的提示框。當(dāng)然我們還可以將上面的代碼進(jìn)行修改，將“錯(cuò)誤”的文字換成其他文字，運(yùn)行時(shí)可顯示其他的提示文字。

（二）PPT課件中的多選題

多選題設(shè)置類似單選題，不過插入的是復(fù)選框（CheckBox）控件，并添加一個(gè)命令按鈕控件，具體如圖5。進(jìn)入VB編輯界面后，此處主要編輯CommandButton1對(duì)象代碼，輸入如下代碼：

Private Sub CommandButton1_Click（）

If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True And CheckBox5.Value = False Then

MsgBox （"正確"）

Else： MsgBox （"錯(cuò)誤"）

End If

End Sub

該例中CheckBox1.Value=Ture表示該復(fù)選框被勾選，如未選，系統(tǒng)默認(rèn)CheckBox1.Value=False，因?yàn)榇鸢甘茿BCD，E是錯(cuò)誤的，所以要強(qiáng)調(diào)CheckBox5.Value = False，代碼才能判斷正確的選擇項(xiàng)。

（三）PPT課件中的填空題

選擇文本框控件插入，并添加一個(gè)命令按鈕，如圖6。進(jìn)入VB編輯界面，選擇文本框控件，注意事件為change，輸入如下代碼：

該例中因?yàn)椤扒赜^”“秦少游”都是正確答案，所以要考慮到這一點(diǎn)。當(dāng)然我們也可以對(duì)文本框控件不編輯代碼，另增加一個(gè)命令按鈕，將粗體代碼添加在命令按鈕控件的Click事件中，運(yùn)行時(shí)輸入文字不會(huì)有任何變化，只有通過點(diǎn)擊命令按鈕給出答案的判斷或提示。

[ 參 考 文 獻(xiàn) ]

[1] 北京博彥科技開發(fā)有限責(zé)任公司. Offce VBA編程高手[M].北京大學(xué)出版社，2000，（12）.

[2] 網(wǎng)冠科技.Visual Basic 6.0控件時(shí)尚編程百例[M].機(jī)械工業(yè)出版社，2001.

[責(zé)任編輯：陳 兵]