☆冷 平 梅松竹

（淮北師范大學(xué)數(shù)學(xué)與科學(xué)學(xué)院，安徽淮北 235000）

當(dāng)今，利用PowerPoint制作CAI課件在中小學(xué)已經(jīng)很普及，然而許多教師對(duì)其智能交互性不夠熟悉，存在認(rèn)識(shí)上的誤區(qū)。他們認(rèn)為這是Authorware、Flash等軟件的專屬優(yōu)勢(shì)，而交互性差是PPT的弱點(diǎn)，他們對(duì)Flash、Authorware可以淋漓盡致地展現(xiàn)交互功能羨慕不已，然而苦于自己不會(huì)操作，只能是望而興嘆。今日的PowerPoint（以下簡(jiǎn)稱PPT）已經(jīng)是鳥(niǎo)槍換炮，功能相當(dāng)強(qiáng)大，只要我們進(jìn)一步挖掘PPT的交互功能，對(duì)常見(jiàn)ActiveX控件有一定認(rèn)識(shí)，并掌握簡(jiǎn)單的VBA代碼，同樣可以輕松完成交互式CAI課件的制作。最難得是PPT操作十分便捷，可以說(shuō)課堂教學(xué)使用PPT來(lái)制作CAI課件是最明智的選擇。

一、ActiveX控件及VBA代碼說(shuō)明

1.ActiveX 控件工具

⑴控件工具箱的啟動(dòng)：在PPT2003中是【視圖 ｜工具欄 ｜控件工具箱】，PPT2007中是【Office按鈕 ｜PowerPoint選項(xiàng)卡 ｜常用 ｜開(kāi)發(fā)工具】。

⑵控件的生成：鼠標(biāo)點(diǎn)選某控件，在編輯區(qū)點(diǎn)擊或拖曳即可。

⑶控件之屬性和事件：控件具備描述自身信息的屬性，如控件的名稱、具有的值、大小等；控件具備響應(yīng)外界消息的事件，如當(dāng)鼠標(biāo)單擊控件時(shí)，控件的值會(huì)發(fā)生變化。鼠標(biāo)右鍵單擊某控件，選擇【屬性】可以編輯該控件的屬性，選擇【查看代碼】可以編輯該控件的事件代碼。

2.關(guān)于 VBA

談及代碼，有些教師也許會(huì)覺(jué)得這些深?yuàn)W的計(jì)算機(jī)語(yǔ)言令他們無(wú)所適從，實(shí)際上，在PPT中我們只需對(duì)VBA有一個(gè)初步認(rèn)識(shí)并掌握幾個(gè)簡(jiǎn)單的語(yǔ)句就可以了。說(shuō)明如下：

⑴VBA（Visual Basic Application）是應(yīng)用程序開(kāi)發(fā)語(yǔ)言Vasual Basic的子集。由于已經(jīng)內(nèi)嵌到PowerPoint中，所以無(wú)須另外安裝，只要熟悉VBA編程就可以通過(guò)創(chuàng)建控件對(duì)象在幻燈片中使用。[1]

⑵VBA 代碼[2]。

①If…Then…Else語(yǔ)句：用來(lái)檢查一個(gè)條件的值是真還是假，如果是真，則執(zhí)行Then后面的操作，如果為假，則執(zhí)行Else后面的操作。

②點(diǎn)語(yǔ)法：格式為“控件名.控件屬性”，用來(lái)設(shè)置控件的某一屬性，放在If…Then語(yǔ)句之間作為條件。如Shockwave－Flash1.Playing＝True就是設(shè)置 Flash 控件的播放屬性為真，即播放。

③EndIf：結(jié)束條件檢查。

④Msgbox：消息框，在測(cè)試時(shí)顯示正誤信息。

制作交互式CAI課件就是基于ActiveX控件的屬性和事件，只要掌握常見(jiàn)ActiveX控件的重要屬性和事件，再了解一些VBA的基本技巧，就可輕松完成交互式CAI課件的制作。

二、制作示例

1.巧用命令按鈕控制Flash文件制作示例

在PPT中通過(guò)ShockwaveFlashObject控件插入Flash文件的方法我們大都掌握，但是此控件不能實(shí)時(shí)控制一般的Flash文件播放（除非Flash自身有播放、暫停等設(shè)置）。我們希望播放Flash文件時(shí)遇到精彩的部分可以暫停以便加以講解。通常我們采取對(duì)正在播放的Flash文件右擊選擇其快捷菜單的“播放”（此時(shí)播放前的“√”會(huì)消失，表示暫停播放），需要再次播放時(shí)需重復(fù)前面的操作，很不方便。甚至有的Flash文件在制作時(shí)隱藏了右鍵菜單，要實(shí)現(xiàn)暫停怎么辦呢？在這里我們可以采用命令按鈕控件對(duì)Flash文件進(jìn)行輕松控制。實(shí)現(xiàn)方法如下：

⑴點(diǎn)擊控件工具箱中的命令按鈕，當(dāng)鼠標(biāo)變成“＋”形狀時(shí)在插入的Flash控件下方點(diǎn)擊即插入一個(gè)命令按鈕，選中它點(diǎn)擊右鍵快捷菜單中的屬性，將Caption項(xiàng)命名為“暫?！?；同樣方法再插入一個(gè)命令按鈕，將Caption項(xiàng)命名為“播放”。其他常用屬性如BackColor（按鈕顏色）、Font（字體、字號(hào)、字形等）、ForeColor（字體顏色）等可根據(jù)個(gè)人喜好對(duì)按鈕進(jìn)行修飾美化。

⑵雙擊暫停按鈕，在 VBA代碼窗口“PrivateSubCommand－Button1＿Click()”與“EndSub”（這是VBA程序設(shè)置好的程序段開(kāi)始和結(jié)束的標(biāo)志，我們只需在這兩行代碼中間填寫(xiě)事件行為就可以了）之間輸入“ShockwaveFlash1.Playing＝False”（ShockwaveFlash1 是 插入的Flash控件名稱，注意不是Flash文件名稱），該語(yǔ)句即表示將設(shè)置前面的Flash播放屬性為假，即暫停。

⑶雙擊播放按鈕，在 VBA代碼窗口“PrivateSubCommandButton2＿Click()”與“EndSub”之間輸入“ShockwaveFlash1.Playing＝True”，該語(yǔ)句即表示將設(shè)置Flash的播放屬性為真，即播放。

這樣在幻燈片放映時(shí)，就可隨意切換暫停與播放按鈕來(lái)控制Flash的播放。

2.利用控件翻頁(yè)的制作示例

我們?cè)诨脽羝胁迦氲囊曨l文件、Flash動(dòng)畫(huà)以及其他控件對(duì)象屬于高一級(jí)別的插件級(jí)別，在幻燈片播放時(shí)，這些高級(jí)別對(duì)象會(huì)跑到上層遮蓋低級(jí)別疊放的對(duì)象，使這些低級(jí)別的超級(jí)鏈接對(duì)象無(wú)法實(shí)現(xiàn)他們的作用。如果將視頻文件或Flash動(dòng)畫(huà)文件的窗口放至滿屏，那么Slide頁(yè)面也會(huì)失去焦點(diǎn)，無(wú)法通過(guò)鼠標(biāo)或鍵盤(pán)進(jìn)行翻頁(yè)。這時(shí)我們可以通過(guò)添加控件來(lái)實(shí)現(xiàn)幻燈片的翻頁(yè)，具體做法如下：

⑴在當(dāng)前幻燈片編輯窗口適當(dāng)位置插入一個(gè)命令按鈕，將其Caption屬性項(xiàng)命名為“下一頁(yè)” ；插入第二個(gè)命令按鈕，將其Caption屬性項(xiàng)命名為“上一頁(yè)”。

⑵在“下一頁(yè)”命令按鈕的VBA代碼窗口“Private SubCommandButton1＿Click()”與“EndSub”之間輸入代碼：SlideShowWindows(1).View.Next （表示顯示當(dāng)前幻燈片之后的幻燈片）；在“上一頁(yè)”命令按鈕的 VBA代碼窗口“PrivateSubCommandButton2＿Click()”與“EndSub”之間輸入代碼：SlideShowWindows(1).View.Previous（表示顯示當(dāng)前幻燈片之前的幻燈片）。

同樣方法制作切換到指定幻燈片（SlideShowWindows(1).View.GotoSlide 5,msoFalse，即切換到第五張幻燈片）、切換到第一張幻燈片（SlideShowWindows(1).View.First）、切換到最后一張幻燈片的命令按鈕（SlideShowWindows(1).View.Last）等。

3.交互性單選題的制作示例

⑴在當(dāng)前幻燈片編輯窗口中用文本框輸入單選題內(nèi)容，如“世界上第一臺(tái)計(jì)算機(jī)ENIAC誕生在：”。

⑵點(diǎn)擊控件工具箱中的選項(xiàng)按鈕，當(dāng)鼠標(biāo)變成“＋”形狀時(shí)在單選題下方點(diǎn)擊即插入一個(gè)選項(xiàng)按鈕控件。選中它并按住Ctrl＋D鍵復(fù)制出另外三個(gè)選項(xiàng)按鈕。分別選中四個(gè)選項(xiàng)按鈕并右鍵點(diǎn)擊選擇其快捷菜單中的屬性，把Caption項(xiàng)分別設(shè)置為A 1936年、B 1942年、C 1946年、D 1979年，并將四個(gè)選項(xiàng)按鈕設(shè)置頂端對(duì)齊及橫向分布。

⑶點(diǎn)擊控件工具箱中的命令按鈕，當(dāng)鼠標(biāo)變成“＋”形狀時(shí)在當(dāng)前幻燈片編輯窗口適當(dāng)位置點(diǎn)擊即插入一個(gè)命令按鈕，在其屬性對(duì)話框中把Caption項(xiàng)命名為“提交”，雙擊 “提交”，在VBA代碼窗口“PrivateSub Command－Button1＿Click()”與“EndSub”之間輸入代碼：If OptionButton3.Value ＝ True Then

MsgBox(″真棒，答對(duì)了！″) //(消息框顯示為“真棒，答對(duì)了！”)

⑷設(shè)置宏的安全級(jí)為“低”，預(yù)覽測(cè)試（以下實(shí)例制作完成后操作同此方法觀看響應(yīng)效果）。

4.交互性多選題的制作示例

⑴在當(dāng)前幻燈片編輯窗口中用文本框輸入多選題內(nèi)容，如“著名導(dǎo)演張藝謀執(zhí)導(dǎo)的電影有：”。

⑵在多選題下方插入一個(gè)復(fù)選框控件，并復(fù)制出另外三個(gè)復(fù)選框控件。分別將四個(gè)復(fù)選框控件的Caption屬性項(xiàng)設(shè)置為A紅高粱、B集結(jié)號(hào)、C 十面埋伏、D 三強(qiáng)拍案驚奇，并將四個(gè)復(fù)選框控件設(shè)置頂端對(duì)齊及橫向分布。

⑶在當(dāng)前幻燈片編輯窗口適當(dāng)位置插入一個(gè)命令按鈕，將其Caption屬性項(xiàng)命名為“提交”，在其VBA代碼窗口“PrivateSubCommand－Button1＿Click()”與“EndSub”之間輸入代碼：

5.交互性填空題的制作示例

⑴在當(dāng)前幻燈片編輯窗口中用文本框輸入填空題內(nèi)容，如“2010年世博會(huì)召開(kāi)地點(diǎn)是”。

⑵在填空題旁邊插入一個(gè)文本框控件和一個(gè)命令按鈕控件。將命令按鈕Caption屬性項(xiàng)命名為“提交答案”，在其 VBA窗口的 “PrivateSubCommandButton1＿Click()”與“EndSub”之間輸入代碼：

6.交互性判斷題的制作示例

⑴在當(dāng)前幻燈片編輯窗口中用文本框輸入判斷題內(nèi)容，如“數(shù)據(jù)結(jié)構(gòu)就是研究數(shù)據(jù)庫(kù)結(jié)構(gòu)的課程”。

⑵在判斷題旁邊插入一個(gè)切換按鈕控件，將其Caption屬性項(xiàng)設(shè)置為“請(qǐng)判斷”。

⑶在當(dāng)前幻燈片編輯窗口適當(dāng)位置插入一個(gè)命令按鈕，將其Caption屬性項(xiàng)命名為“查看結(jié)果”，在其VBA窗 口 的 “PrivateSubCommandButton2＿Click ()” 與“EndSub”之間輸入代碼：

以上只介紹了常見(jiàn)交互性實(shí)例的制作方法，在PPT中還有很多的控件可以開(kāi)發(fā)利用，其設(shè)計(jì)思想和方法是通用的。而且此方法制作出的CAI課件交互性效果毫不遜色于Authorware等專業(yè)軟件開(kāi)發(fā)工具制作的課件。我們?cè)谡莆誔owerPoint常規(guī)功能的同時(shí)，應(yīng)充分挖掘PPT中的控件功能并熟悉VBA的應(yīng)用，拓寬用PowerPoint制作課件的類型，提高課件的靈活性，以較少的投入開(kāi)發(fā)出符合自身需求的功能更強(qiáng)的個(gè)性化教學(xué)課件[3]。

[1]鄭小軍.PowerPoint課件交互設(shè)計(jì)策略及實(shí)現(xiàn)[J].中國(guó)教育信息化,2008,(20).

[2]江建.應(yīng)用PowerPoint控件,讓課件無(wú)限精彩[J].信息技術(shù)教育,2008,(2).

[3]馬致明,陳惠敏,張艷燕,趙紅梅.在PowerPoint中利用VBA制作交互式物理模擬課件[J].中國(guó)教育信息化,2008,(16).