Powerpoint作為office系列軟件的一個有機(jī)組成部分,與word、excel操作界面、使用方法相似，而且可方便地插入各種媒體組件，因而成為廣大任課教師制作課件的首選工具。目前中小學(xué)教學(xué)中使用的課件一般有課堂演示類課件、自主學(xué)習(xí)類課件和模擬操作類課件。從powerpoint的功能來看，比較適合于制作演示類型的課件。但是如果對powerpoint的使用進(jìn)行深入挖掘，我們還是可以制作出具有較強(qiáng)交互功能的課件。
一． 用動畫和超鏈接功能實現(xiàn)簡單交互。
1．用自定義動畫制作具有簡單交互功能的填空題、判斷題和選擇題。
首先將題目內(nèi)容輸出在幻燈片上；接著用插入文本框的方法將每個題的答案依次插入（一個答案對應(yīng)一個文本框），然后為答案文本框設(shè)置動作，如出現(xiàn)、飛入等方式。課堂演示時，教師可讓學(xué)生先看題目，在學(xué)生說出答案后，再顯示正確答案。
2．用超級鏈接制作選擇題。
同樣先輸入題目，將幾個備選答案的區(qū)域設(shè)置為超鏈接區(qū)域，當(dāng)學(xué)生說出他認(rèn)為正確的答案后，教師通過點(diǎn)選不同的區(qū)域調(diào)出不同的幻燈片，如果答案正確，鏈入的幻燈片可以是表揚(yáng)的圖片、祝賀的聲音等；如果答案錯誤，則鏈入的幻燈片可以為鼓勵、加油的畫面，這樣能夠增加課件的趣味性和感染力。但在用超級鏈接進(jìn)行交互課件制作時，每個幻燈片中還要做出到下一題的鏈接，這樣才能改變powerpoint課件順序播放的流程，實現(xiàn)簡單的交互功能。
二． 用VBA實現(xiàn)powerpoint中的高級交互功能。
VBA是Microsoft Office系列軟件的內(nèi)置編程語言，是應(yīng)用程序開發(fā)語言VB（Visual Basic）的子集。它功能強(qiáng)大，面向?qū)ο?，可極大地增加Office系列軟件的交互性。
我們?nèi)绻朐贠ffice XP以后的版本中運(yùn)行宏，必須將宏的安全性設(shè)置為中或低。如果宏的安全性為高，則宏被禁用；設(shè)置為中時，在打開帶有宏的文件時，自動提示是否啟用宏；設(shè)置為低時，打開文件時自動啟用宏。所以建議將宏的安全性設(shè)置為中。
在powerpoint界面中進(jìn)行VBA編程有兩種方式：錄制宏和在Visual Basic編輯器中直接編程。錄制宏是將一系列操作過程錄下來并由系統(tǒng)自動轉(zhuǎn)換為VBA語句，并保存為一個宏文件。如果操作者需要再次執(zhí)行與錄制的宏完全相同的一系列操作，只需運(yùn)行剛剛錄制完成的宏即可，大大地縮短了操作時間，并可以實現(xiàn)日常工作的自動化。如果要在powerpoint中制作出具有較好交互功能的課件，必須采用第二種方式，即直接在Visual Basic編輯器中進(jìn)行編程。
1．了解powerpoint的控件。
在Powerpoint工具欄上單擊鼠標(biāo)右鍵，從快捷菜單中選擇“控件工具箱”，則下面的控件工具箱會出現(xiàn)在powerpoint工作區(qū)內(nèi)。
在課件制作過程中，我們會經(jīng)常用的有下面幾種控件：
標(biāo)簽：用于表現(xiàn)靜態(tài)文本，如顯示選擇題、判斷題的題目等，
復(fù)選框：是一個選擇控件，可用于多項選擇題的制作；
文本框：可以輸入文本，用來制作填空題；
命令按鈕，可用于制作幻燈片上的按鈕，還可通過按鈕來改變幻燈片的播放順序；
單選按鈕，通常一組使用，用來制作單項選擇題。
2．在幻燈片中添加控件并為控件設(shè)置屬性。
在控件工具箱中單擊控件，鼠標(biāo)變成十字形，在幻燈片上畫出相應(yīng)的控件。然后，在該控件上單擊鼠標(biāo)右鍵/屬性，則在屏幕上彈出了屬性對話框。在課件制作中常用的屬性有下面幾種：
“名稱”即設(shè)置當(dāng)前控件的名稱（用在VBA程序中的對象名稱），
backColor為控件的背景色；
Caption設(shè)置控件在幻燈片中對應(yīng)顯示的文本；
font設(shè)置控件說明文本的字體，
forecolor設(shè)置控件說明文本顏色；
Value屬性設(shè)置控件的值，一般為True和false，如果控件是文本框，Value的值則為輸入的文本。
3．為控件設(shè)置代碼。
用鼠標(biāo)雙擊幻燈片中的控件，會自動進(jìn)入到VBA編輯器中，控件默認(rèn)的事件一般都為控件的Click事件。我們可以通過代碼窗口上面的兩個下拉列表選擇要編程的對象和該對象的響應(yīng)事件。
4．用powerpoint中的VBA制作交互課件的實例。
點(diǎn)擊圖片鏈接課件
?。?）選擇題的制作。
第一，用插入文本框的方法將題目輸出在幻燈片上，也可使用標(biāo)簽控件來完成此項工作；
第二，根據(jù)題目要求在幻燈片中添加相應(yīng)的控件，如單選按鈕、復(fù)選框和命令按鈕等內(nèi)容，并在控件屬性中設(shè)置控件的屬性和顯示文本，接著選取所添加的控件，單擊鼠標(biāo)右鍵，在“設(shè)置控件格式”中調(diào)整控件在幻燈片中位置及大小等參數(shù)，使整個界面整齊規(guī)范；（如圖一）
圖一 用powerpoint制作的選擇題
第三，為各個控件添加相應(yīng)的事件。在幻燈片中雙擊控件，進(jìn)入到Visual Basic編輯器為事件添加程序代碼。
通過左側(cè)的下拉列表選擇要添加代碼的控件，通過右側(cè)的下拉列表選擇控件的動作，如單擊、雙擊等，然后將編寫的代碼添加到已有的兩行編碼之間。
Private Sub CommandButton1_Click() '提交答案按鈕
Dim ex
If a1.Value = True Then ex = MsgBox("真棒,你做對了!", vbOKOnly)
If a2.Value = True Or a3.Value = True Then ex = MsgBox("太遺憾了，請繼續(xù)努力！", vbOKOnly)
End Sub
Private Sub CommandButton2_Click() '重新選擇按鈕
a1.Value = False
a2.Value = False
a3.Value = False
End Sub
Private Sub CommandButton3_Click() '下一題按鈕
If MsgBox("continue?", vbYesNo + vbQuestion, "next question") = vbYes Then
With SlideShowWindows(1).View
.GotoSlide (2)
End With
End If
End Sub
(2)填空題的制作：如果每題只有一個空，則方法、步驟同判斷題。但每題同時出現(xiàn)幾個空的時候（如圖二），需將“提交答案”按鈕的代碼進(jìn)行相應(yīng)改動。
Private Sub CommandButton3_Click() '提交答案的按鈕
Dim ex
If Trim(TextBox1.Text) = "What" And LTrim(TextBox2.Text) = "like" Then
ex = MsgBox("真棒！你答對了", vbOKOnly)
ElseIf Trim(TextBox1.Text) = "What" Then ex = MsgBox("第一個空填對了，繼續(xù)努力吧！", vbOKOnly)
ElseIf Trim(TextBox2.Text) = "like" Then ex = MsgBox("第二個空填對了，繼續(xù)努力吧！", vbOKOnly)
Else: MsgBox ("太遺憾了，兩個空都錯了，加油！")
End If
End Sub
圖二 用powerpoint制作多空的填空題
其實，Powerpoint中的VBA功能非常強(qiáng)大，而且有很好的聯(lián)機(jī)幫助文件，對于一些常用的對象和事件，我們都可以通過幫助文件來了解和使用。如果我們希望制作出專業(yè)級的交互課件，還可以使用VBA中的用戶窗體來完成。所以，要想用powerpoint制作出更好、功能更全面的課件，還有待于我們每位教師的進(jìn)一步學(xué)習(xí)和提高，進(jìn)一步的溝通和交流。
