劉洪花

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

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

劉洪花

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

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

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

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

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

1.1 基本構(gòu)想

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

圖1 程序走向圖

1.2 制作過程

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

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

2 利用VBA制作課堂練習題

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

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

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

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

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

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

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

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

2.2 單選題的制作

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

圖2 界面設計效果圖

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

Private Sub CB1_Click（）

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

MsgBox（"您答對了！"）

Else

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

End If

End Sub

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

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

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

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

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

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

If OptionButton3.Value=True Then

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

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 多選題的制作

設計同單選題，用復選框（CheckBox）代替單選鈕，其他設置同單選題。

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

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

MsgBox（"您答對了！"）

Else

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

end if

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

Private Sub CommandButton2_Click（）

MsgBox（"正確答案：ACE"）

End Sub3.

2.4 填空題的制作

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

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

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

MsgBox（"您答對了！"）

Else

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

2.5 判斷題的制作

所有設置與單選題類似，只不過是設計2個選項即“√”和“×”，這2個符號可先在Word中插入，然后復制使用。

3 宏啟用

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

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

G436

B

1671-1246（2010）23-0051-02