利用觸發器和VBA制作互動課件

劉洪花

（山東勝利職業學院醫療衛生分院，山東東營 257000）

利用觸發器和VBA制作互動課件

劉洪花

（山東勝利職業學院醫療衛生分院，山東東營 257000）

觸發器；VBA；互動課件

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

1 利用觸發器制作交互式動畫

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

1.1 基本構想

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

圖1 程序走向圖

1.2 制作過程

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

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

2 利用VBA制作課堂練習題

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

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

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

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

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

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

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

Name為控件名稱；Caption決定了控件上顯示的內容；Au－toSize決定了控件是否根據正文自動調整大小；BackColor用于設置背景顏色；Forecolor用于設置文字顏色；Font用于設置字體、字號及字形；Value用于查看單、復選框是否處于選中狀態，True為選中，False則未選；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

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

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

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

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

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

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

If OptionButton3.Value=True Then

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

End If

With SlideShowWindows（1）.View

GotoSlide 2（2為第二張幻燈片，此語句表示轉到第二張幻燈片）

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中默認情況下是禁用宏的，如果播放時沒有出現交互效果，請將“工具/選項/安全”的“宏安全性”設置為“低”或者“中”，關閉重新打開時會有提示信息，選擇“啟用宏”。

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

G436

B

1671-1246（2010）23-0051-02