利用VBA技術實現PPT課件的智能交互

　　摘 要： 本文以PPT課件中常見的具有交互功能代表性的各類選擇題、填空題的制作過程為例，詳細分析了利用VBA技術在PowerPoint中實現智能交互的步驟、方法與技巧。
　　關鍵詞： VBA PPT課件 智能交互
　　
　　1.前言
　　Microsoft Office套件的PowerPoint以其功能強大而又操作簡單優良的品質，被眾多教師廣泛應用于課堂教學的課件制作中。對于使用者來說，只要略加學習，就可以利用軟件自身提供的菜單與工具，制作出美觀大方的PPT課件。但是據我調查發現，對于相當部分老師來說，一般只會用其做出單向的課堂演示型課件，或者也有少部分老師能夠利用PowerPoint 2003版之后所提供的觸發器功能來實現一些相對簡單的交互操作。殊不知，其實在PowerPoint中完全可以使用內嵌的VBA技術制作出具有智能交互功能的PPT 課件，實現學習者與計算機之間進行信息的雙向傳遞，不但能優化教學效果，加強互動，而且使得教學更加活潑生動。
　　本文以PPT課件中常見的具有交互功能代表性的各類選擇題、填空題的制作過程為例，詳細分析了利用VBA技術在PowerPoint中實現智能交互的步驟、方法與技巧。
　　2.VBA技術及在PowerPoint中的使用方法
　　2.1VBA技術簡介
　　VBA（Visual Basic for Applications）是由微軟開發的新一代標準宏語言，用于定制和擴展Office功能的系統，屬于Office組件的一部分。它提供了面向對象的程序設計方法和相當完整的程序語言，并采用與Visual Basic完全相同的編程環境。
　　VBA有3個特點：（1）VBA使得已有的應用程序自動化；（2）VBA必須寄生于已有的應用程序；（3）VBA開發的程序必須依賴于它的父應用程序（如PowerPoint中）。
　　2.2在PowerPoint中使用VBA
　　（1）打開PowerPoint，新建一個空白的幻燈片。
　　（2）選擇“視圖→工具欄→控件工具箱”，顯示控件工具箱，如圖1所示。控件工具箱中提供了制作PPT課件的各種控件。
　　（3）用鼠標單擊控件工具箱中的相應控件，然后用鼠標移動到幻燈片編輯區域。
　　（4）按下鼠標的左鍵，并同時拖動鼠標，這樣就在PPT上畫出一個控件。
　　（5）選中控件，然后單擊控件工具箱中的屬性按鈕，現在就可以編輯該控件的屬性。
　　（6）雙擊控件，添加VBA代碼，完成相應功能。
　　2.3PowerPoint運行環境的設置
　　為保證添加了VBA代碼的PPT課件能夠正常工作，需要把PowerPoint運行環境中的宏安全性設為“中”。具體操作步驟：選擇“工具→宏→安全性”，打開“安全性”對話框，將安全級設置為“中”，然后重新打開課件，則會出現一個對話框，選擇“啟用宏”即可。
　　3.交互性單選題的制作
　　如圖2所示的一道計算機應用基礎的單選題，要求在PPT課件中實現如下交互功能：當用戶分別點擊題目的A、B、C、D選項，課件能給出正確與否的提示，同時當用戶點擊按鈕“顯示答案”時，課件也能反饋出正確的答案。（注：正確答案為C項）
　　下面介紹具體制作步驟：
　　（1）新建一個空白PPT文檔，寫入題干。
　　（3）在畫出的單選按鈕上右擊，在彈出的快捷菜單中選擇“屬性”選項，然后彈出屬性窗口（如圖3所示）。修改其“Caption”屬性值，將其改為選項A的內容：“A.發送數字信號”。
　　（4）重復以上兩個步驟或通過復制粘貼的方法完成剩下3個選項，把相應的“Caption”屬性值分別設定為B、C、D選項的內容。
　　（5）選擇控件工具箱中的命令按鈕，然后在當前頁面的合適位置拖動，畫出一個命令按鈕，在選按鈕上右擊，在彈出的快捷菜單中選擇“屬性”選項，修改其“Caption”屬性值為：顯示答案。
　　（6）為各個單選按鈕添加代碼：雙擊第一個單選按鈕，彈出代碼窗口，輸入以下代碼：
　　Private Sub OptionButton1_Click（）
　　 MsgBox（"很抱歉！你的回答不正確！"）
　　End Sub
　　對第二、四個按鈕也輸入同上的代碼，而對正確答案的第三個按鈕則輸入以下代碼：
　　Private Sub OptionButton3_Click（）
　　 MsgBox（"恭喜你！答對了！"）
　　End Sub
　　（7）為命令按鈕“顯示答案”添加代碼：雙擊該命令按鈕，彈出代碼窗口，輸入以下代碼：
　　Private Sub CommandButton1_Click（）
　　 MsgBox（"本題正確答案是C！你答對了嗎？"）
　　End Sub
　　4.交互性多選題的制作
　　如圖4所示的一道計算機應用基礎的多選題，要求在PPT課件中實現如下交互功能：用戶分別點擊題目的A、B、C、D選項進行選擇，然后點擊按鈕“提交答案”時，課件能正確地反饋用戶提交的答案是否正確，如果不正確就會順便提示給出正確答案。（注：正確答案為BCD）
　　具體制作步驟如下：
　　前面5個步驟與制作單選題的操作類似，只不過在第2步要選擇的是控件工具箱中的復選按鈕 ，此外相應的“Caption”屬性值也按照上圖4所示的內容進行設置。
　　接下來為命令按鈕“提交答案”添加代碼：雙擊該命令按鈕，彈出代碼窗口，輸入以下代碼：
　　Private Sub CommandButton1_Click（）
　　 If CheckBox1.Value=False And CheckBox2.Value=True And CheckBox3.Value=True And CheckBox4.Value=True Then
　　 MsgBox（"恭喜你，回答正確！"）
　　 Else
　　 MsgBox（"很抱歉，你的回答不正確！正確答案是：BCD"）
　　 End If
　　End Sub
　　5.交互性填空題的制作
　　如圖5所示的一道計算機應用基礎填空題，要求在PPT課件中實現如下交互功能：用戶在文本框中輸入相應的內容作答，然后點擊按鈕“提交答案”時，課件能正確地反饋用戶提交的答案是否正確，如果不正確就順便提示給出正確答案。（注：正確答案為“二進制”）
　　題目的制作要點：填空題中提供給用戶作答的地方要用到控件箱中文本框 ，而其中的命令按鈕“提交答案”中的代碼應為：
　　Private Sub CommandButton1_Click（）
　　 If TextBox1.Text="二進制"Then
　　 MsgBox（"恭喜你，回答正確！"）
　　 Else
　　 MsgBox（"很抱歉，你的回答不正確！正確答案是：二進制"）
　　 End If
　　End Sub
　　6.結語
　　VBA技術為PowerPoint用戶提供了實現功能拓展的二次開發工具，充分利用VBA這一工具，可使幻燈片的交互功能得到增強。作為經常制作各類PPT課件的教育工作者，在掌握PowerPoint常規功能的同時，應盡可能熟悉VBA技術的應用，最大限度地利用它所具有的強大功能與豐富資源來改變PPT課件呆板單一的面孔，增強課件的表現能力和智能交互性，制作出功能更強大的個性化教學課件，激發學生的學習興趣和參與程度，達到提高教學質量的目的。
　　
　　參考文獻：
　　［1］江建.應用PowerPoint控件讓課件無限精彩［J］.信息技術教育，2008，（2）.
　　［2］張勝濤.中文版PowerPoint 2003幻燈片制作實用教程［M］.北京：清華大學出版社，2009.
　　［3］汪瑾.基于VBA的交互式課件設計［J］.辦公自動化雜志，2009，（9）.
　　［4］范利利，張祖芹，劉延華.PPT課件中基于VBA的文本交互的實現［J］.中國教育信息化（基礎教育版），2010，（16）.