利用觸發(fā)器和VBA制作互動課件

劉洪花

（山東勝利職業(yè)學(xué)院醫(yī)療衛(wèi)生分院，山東東營 257000）

利用觸發(fā)器和VBA制作互動課件

劉洪花

（山東勝利職業(yè)學(xué)院醫(yī)療衛(wèi)生分院，山東東營 257000）

觸發(fā)器；VBA；互動課件

PowerPoint簡單易學(xué)，是教師制作課件的得力助手，但大多數(shù)教師只掌握了它的常規(guī)功能，如簡單的文字堆積和自定義動畫設(shè)計(jì)，致使制作的課件靈活性、互動性差。為此，可利用PowerPoint中自帶的觸發(fā)器和VBA實(shí)現(xiàn)多種交互功能。

1 利用觸發(fā)器制作交互式動畫

在PowerPoint中，用戶可利用自定義動畫效果中自帶的觸發(fā)器功能輕松制作交互式動畫。觸發(fā)器功能可以將畫面中的任一對象設(shè)置為觸發(fā)器，單擊后該觸發(fā)器下的所有對象就能根據(jù)預(yù)先設(shè)定的動畫效果開始運(yùn)動，且可以多次重復(fù)使用。為此，筆者舉一個簡單的例子說明如何使用PowerPoint中的觸發(fā)器。

1.1 基本構(gòu)想

該例講解的是C語言程序設(shè)計(jì)的While循環(huán)結(jié)構(gòu)，筆者希望通過小球的運(yùn)行軌跡直觀地演示程序走向，如圖1：只要單擊“真”按鈕，小球就會沿著①路線行走，每單擊一次，就重復(fù)執(zhí)行一次，直到單擊“假”按鈕，小球才會沿著②路線行走。

圖1 程序走向圖

1.2 制作過程

1.2.1 設(shè)置小球運(yùn)動路徑選中小球，單擊菜單“幻燈片放映”→“自定義動畫”，在任務(wù)空格中單擊“添加效果”→“動作路徑”→“繪制自定義路徑”→“自由曲線”，沿路線①畫一條曲線；重復(fù)以上步驟，再沿路線②畫一條曲線。

1.2.2 制作交互按鈕單擊菜單“幻燈片放映”→“動作按鈕”，制作一真一假2個按鈕，選中曲線①，單擊列表“自定義動畫方式”→“計(jì)時”→“觸發(fā)器”→“單擊下列對象時啟動效果”后從列表框中選擇文本為真的動作按鈕項(xiàng)。通過以上將真動作按鈕設(shè)置成觸發(fā)器，用同樣方法設(shè)置假動作按鈕為觸發(fā)器，設(shè)置完畢放映幻燈片，分別單擊2個按鈕，小球會按指定路線運(yùn)動。

2 利用VBA制作課堂練習(xí)題

PowerPoint中的VBA是Visual Basic for Application的簡寫，它以VB語言為基礎(chǔ)，經(jīng)過修改并運(yùn)行在Microsoft Office中的應(yīng)用程序。它可以實(shí)現(xiàn)多種復(fù)雜交互，但很多教師面對VBA編程，會覺得無從下手。為此，筆者通過舉例講解如何利用VBA制作課堂練習(xí)題。

2.1 控件工具箱中常用控件介紹

在PowerPoint中選擇菜單“視圖/工具欄/控件工具箱”。

常用控件有復(fù)選框（CheckBox），可以選擇多個選項(xiàng)，常用來設(shè)計(jì)多選題；文本框（TextBox），可輸入文本，常用來設(shè)計(jì)填空題；命令按鈕（CommandButton），用來確定選擇或輸入，也可設(shè)計(jì)超級鏈接；單選框（OptionButton），只能選中一個選項(xiàng)，常用來設(shè)計(jì)單選題或判斷題；標(biāo)簽（Label），用來顯示文字信息。

插入控件的方法：單擊控件工具箱上的工具按鈕，鼠標(biāo)變成十字型，按下鼠標(biāo)左鍵，在幻燈片中拖動到適當(dāng)位置即可。

進(jìn)入VBA的方法：雙擊幻燈片中的控件按鈕即可進(jìn)入VBA編程狀態(tài)。

控件的主要屬性及設(shè)置方法：進(jìn)入VBA后，需要在“屬性”窗口中對控件屬性進(jìn)行設(shè)置。如果沒有出現(xiàn)“屬性”窗口，按F4鍵即可調(diào)出該窗口，以下為常用屬性。

Name為控件名稱；Caption決定了控件上顯示的內(nèi)容；Au－toSize決定了控件是否根據(jù)正文自動調(diào)整大?。籅ackColor用于設(shè)置背景顏色；Forecolor用于設(shè)置文字顏色；Font用于設(shè)置字體、字號及字形；Value用于查看單、復(fù)選框是否處于選中狀態(tài)，True為選中，F(xiàn)alse則未選；Height、Width、Hop和Left決定控件大小和位置。

2.2 單選題的制作

（1）界面設(shè)計(jì)。題干部分可直接在幻燈片中輸入，然后插入4個單選框（Name分別設(shè)置為Op1、Op2、Op3、Op4），修改其Caption分別為A、B、C、D，放在備選答案的左邊（見圖2）。

圖2 界面設(shè)計(jì)效果圖

（2）“判斷正誤”命令按鈕代碼編寫。在幻燈片適當(dāng)位置插入命令按鈕，雙擊該按鈕進(jìn)入代碼窗，修改其Name為CB1，Caption為“判斷正誤”，在代碼編輯窗口中輸入如下語句：

Private Sub CB1_Click（）

If Op3.Value=True Then（Op3為正確選項(xiàng)前的單選鈕Name屬性值，本題第三項(xiàng)正確）

MsgBox（"您答對了！"）

Else

MsgBox（"很遺憾，您答錯了！"）

End If

End Sub

以上代碼根據(jù)單選框的Value值判斷答案，如正確選項(xiàng)的Value值為True，則為該題選擇正確，否則為選擇錯誤。

若計(jì)算練習(xí)成績，可再加一個“下一題”按鈕，單擊此按鈕可實(shí)現(xiàn)幻燈片轉(zhuǎn)換并計(jì)算成績的功能，實(shí)現(xiàn)代碼如下：

首先進(jìn)入代碼窗口，選擇對象列表框中通用，編寫如下代碼：

dim s as integer（此語句定義了一個求總分的全局變量s）

然后編寫“下一題”按鈕代碼：

Private Sub CommandButton1_Click（）（CommandButton1為該按鈕的名稱）

If OptionButton3.Value=True Then

s=s+10（計(jì)算總成績，10為每題的得分，根據(jù)實(shí)際情況自行修改）

End If

With SlideShowWindows（1）.View

GotoSlide 2（2為第二張幻燈片，此語句表示轉(zhuǎn)到第二張幻燈片）

End With

End Sub

（3）“查看答案”命令按鈕代碼編寫：

Private Sub CommandButton2_Click（）

MsgBox（"正確答案：B"）

End Sub

2.3 多選題的制作

設(shè)計(jì)同單選題，用復(fù)選框（CheckBox）代替單選鈕，其他設(shè)置同單選題。

（1）“判斷正誤”命令按鈕代碼編寫如下：

If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then（CheckBox1、checkBox3、Checkbox5分別為正確選項(xiàng)前的復(fù)選鈕Name值，本題1、3、5項(xiàng)正確）

MsgBox（"您答對了！"）

Else

MsgBox（"很遺憾，您答錯了！"）

end if

（2）“查看答案”命令按鈕代碼編寫如下：

Private Sub CommandButton2_Click（）

MsgBox（"正確答案：ACE"）

End Sub3.

2.4 填空題的制作

（1）題目的設(shè)置同單選題，填空的地方用文本框。

（2）“判斷正誤”命令按鈕代碼編寫。由于是填空題，所填答案是文本，所以將其條件書寫為：

If TextBox1.value="正確的文本"Then

MsgBox（"您答對了！"）

Else

MsgBox（"很遺憾，您答錯了！"）End if

2.5 判斷題的制作

所有設(shè)置與單選題類似，只不過是設(shè)計(jì)2個選項(xiàng)即“√”和“×”，這2個符號可先在Word中插入，然后復(fù)制使用。

3 宏啟用

在Office XP中默認(rèn)情況下是禁用宏的，如果播放時沒有出現(xiàn)交互效果，請將“工具/選項(xiàng)/安全”的“宏安全性”設(shè)置為“低”或者“中”，關(guān)閉重新打開時會有提示信息，選擇“啟用宏”。

VBA是為PowerPoint用戶提供了實(shí)現(xiàn)功能拓展的二次開發(fā)工具，所以教師在掌握PowerPoint常規(guī)功能的同時，應(yīng)盡可能掌握VBA功能，提高課件的靈活性和互動性。

G436

B

1671-1246（2010）23-0051-02