向陽霞 陳建明 陸軍裝甲兵學(xué)院信息通信系

2020年春季學(xué)期，由于疫情的影響，教育部要求延期開學(xué)，并提出利用網(wǎng)絡(luò)平臺，“停課不停學(xué)”。在線教學(xué)使得師生基于互聯(lián)網(wǎng)平臺發(fā)生時空和教學(xué)分離，如何與傳統(tǒng)線下授課一樣進(jìn)行有效互動，是教師面臨的考驗。PPT課件作為現(xiàn)代化教育的手段之一，如何更好地結(jié)合在線平臺為教學(xué)服務(wù)？是每一位教師需要長期研究的內(nèi)容。目前，多數(shù)教師把精力集中在軟件本身的使用操作上，對圖文、配色、動畫等設(shè)計關(guān)注較少，對研究如何在PPT課件中進(jìn)行開發(fā)輔助課堂教學(xué)管理工具的更是寥寥無幾。下面，筆者以實現(xiàn)隨機(jī)點名PPT課件為例進(jìn)行介紹，闡述如何使用VBA（Visual Basic for Application）將PPT與Excel進(jìn)行有機(jī)結(jié)合。

● 基于PPT實現(xiàn)隨機(jī)點名交

互性課件的設(shè)計

1.開發(fā)環(huán)境

①操作系統(tǒng)WIN7以上版本（32/64位）；②OFFICE 2010（32位）版本。

2.功能設(shè)計

筆者設(shè)計的隨機(jī)點名PPT課件，主要有兩個功能：①隨時點名。教師控制開始點名和結(jié)束點名的時機(jī)；點名開始時，從數(shù)據(jù)源中獲取學(xué)生信息，文中采用Excel存儲學(xué)生名單，然后通過隨機(jī)函數(shù)進(jìn)行計算，讀取表格中的學(xué)生記錄并顯示，點名結(jié)束后，單擊隨機(jī)點名按鈕，可進(jìn)行下一次點名。②隨機(jī)點名。通過PPT的母版功能，在幻燈片母版的標(biāo)題內(nèi)容頁中設(shè)置按鈕控件，放映時每一頁都可以隨時隨機(jī)點名，在單擊該按鈕時，彈出點名對話框，顯示當(dāng)前點名信息，在當(dāng)前窗體中，設(shè)置“關(guān)閉”按鈕，結(jié)束本次點名，返回到正在放映的PPT頁面，教師繼續(xù)進(jìn)行教學(xué)活動。

3.隨機(jī)點名顯示界面設(shè)計

VBA中的用戶窗體就是指帶UI的用戶界面，包含文本框、復(fù)選框、單選按鈕等控件。每一次點名獲取到的學(xué)生信息，將在彈出的窗體中進(jìn)行顯示，以醒目的方式進(jìn)行提示，增強(qiáng)與學(xué)生的互動性。

具體操作步驟如下：通過菜單“開發(fā)工具”中的“用戶窗體”創(chuàng)建窗體，并進(jìn)行界面設(shè)計，如圖1所示，學(xué)生框中顯示所讀取的學(xué)生序號,姓名框中顯示所讀取的學(xué)生姓名,關(guān)閉按鈕，停止點名，返回PPT頁。

圖1 界面設(shè)計

● 基于VBA編程的課堂隨機(jī)

點名PPT課件的實現(xiàn)

1.創(chuàng)建PPT課件

創(chuàng)建自己的課件，該課件文件必須以“啟用宏的演示文稿”保存，即后綴名為.pptm格式。pptm是啟用了宏的文件，并且該文件只能用2007及以上版本的Office軟件打開，如果用其他版本軟件打開會出現(xiàn)無法編輯、圖片不完整等問題。

2.在PPT中進(jìn)行VBA編程

（1）VBA相關(guān)操作

VBA是一種完全面向?qū)ο篌w系結(jié)構(gòu)的編程語言，VBA沒有自己獨(dú)立的工作環(huán)境，必須依附于主應(yīng)用程序，如Microsoft Office軟件，通過VBA可以實現(xiàn)各種Office軟件操作的自動化。

為有效進(jìn)行VBA進(jìn)行開發(fā)，首先需要進(jìn)行如下相關(guān)設(shè)置：①在PPT菜單中增加“開發(fā)工具”欄，為增加ActiveX控件和編寫程序提供開發(fā)環(huán)境；②設(shè)置“啟動所有宏”，開啟宏功能，確保程序能正常運(yùn)行。在Office中的宏是默認(rèn)禁用的。

（2）在PPT母版中插入按鈕控件

幻燈片母版是一類特殊幻燈片，它能控制基于它的所有幻燈片，對母版的任何修改都會體現(xiàn)在那些基于它的幻燈片上。因此，采用母版來進(jìn)行制作，提高了工作效率。母版主要分為主題頁和標(biāo)題頁、標(biāo)題內(nèi)容頁，通常包含一些共有信息，如背景、配色方案、字體等。

通過“開發(fā)工具”菜單，筆者在PPT母版的標(biāo)題內(nèi)容頁中插入“隨機(jī)點名”按鈕控件，注意必須在母版中進(jìn)行增加，以達(dá)到每頁都能隨時點名的效果，并且在母版中可以調(diào)整按鈕的位置，以適應(yīng)自己的PPT課件內(nèi)容。

3.創(chuàng)建數(shù)據(jù)源

筆者采用Excel作為數(shù)據(jù)源，在工作簿中用來處理和存儲數(shù)據(jù)，保存文件后綴名為.xlxs或.xls，并確保文件名為英文，否則獲取失敗。使用Excel存儲文件的目的：

①可以直接使用現(xiàn)有的學(xué)生名單，提高已有資源的利用率，降低開發(fā)難度；②與PPT連接簡單方便，提高開發(fā)效率。

（1）設(shè)計表結(jié)構(gòu)

學(xué)生名單表中包含多列數(shù)據(jù)，如學(xué)號、姓名、照片等，為點名提供數(shù)據(jù)源，筆者設(shè)計了兩列：學(xué)號和姓名。

（2）Excel與PPT進(jìn)行連接

E xcel與PP T進(jìn)行連接，首先引用“Microsoft Excel 14.0 Object Library”。具體操作如下：打開PowerPoint2010→開發(fā)工具→Visual Basic→工具→引用→勾選“Microsoft Excel 14.0 Object Librar y”→確定。其中，4.0是Office 2010的版本，如果采用其他版本，要進(jìn)行相應(yīng)選擇，否則，獲取數(shù)據(jù)失敗。此時，PPT與Excel建立連接，即可在PPT程序中使用Excel中的VBA對象屬性函數(shù)。同時，為了能精準(zhǔn)找到Excel學(xué)生名單，應(yīng)盡量把PPT課件和Excel學(xué)生名單兩個文件放在同一目錄下，通過正在打開的PPT課件，獲取Excel文件的路徑，參考代碼如圖2所示。

圖2

（3）獲取EXCEL數(shù)據(jù)

在獲取Excel數(shù)據(jù)時，其基本對象為：Application（Excel應(yīng)用程序）→Workbook（工作簿）→Sheets（工作表）→Cells（單元格）。在VBA中定位到指定的單元格，使用方法為：工作簿.工作表.單元格。

本例中以獲取學(xué)號為例，參考代碼如下：

①找到激活的Sheet工作表。

Set xlSht = xlWBK.Worksheets(1)

xlSht.Activate

②讀取學(xué)號和姓名信息。

單元格表達(dá)方式有兩種——Range和Cells，工作表中的“行”用數(shù)字1、2、3等表示，“列”用A、B等來表示。兩者s都指的是單元格對象。其中Cells是單個單元格對象，兩個參數(shù)分別為行和列；Range()則是指一個區(qū)域，區(qū)域中可以是一個單元格，也可以是多個單元格。

隨機(jī)點名的計算方法：

①根據(jù)標(biāo)題行中“學(xué)號”字段或“姓名”字段，計算出表中第一行的行號start_row和最后以后的行號end_row end_row。

②通過隨機(jī)函數(shù)Rnd計算出學(xué)生信息記錄行。參考代碼如圖3所示。

圖3

③顯示點名信息。

在本例中，當(dāng)PPT放映時，單擊“隨機(jī)點名”按鈕，顯示點名信息。因此是采取彈出窗體方式進(jìn)行顯示。參考代碼如圖4所示。

圖4

4.退出PPT放映時關(guān)閉Excel

在操作PPT時，其基本對象為：Application（PowerPoint應(yīng)用程序）→Presentation（演示文稿）→Slides（幻燈片放映窗口）→Shapes（幻燈片）。

OnSlideShowTerminate在幻燈片放映結(jié)束時自動運(yùn)行的宏，可以用它來清理相關(guān)的信息。采用VBA編程，實現(xiàn)在PPT結(jié)束放映時關(guān)閉Excel進(jìn)程，清空緩存數(shù)據(jù)，此操作非常重要，否則造成打開很多Excel的進(jìn)程，導(dǎo)致隨機(jī)點名失敗。參考代碼如圖5所示。

圖5

5.隨機(jī)PPT課件的使用

當(dāng)實現(xiàn)隨機(jī)點名功能后，可以把此PPT作為模板，一是在此基礎(chǔ)上設(shè)計制作自己的課件，二是把已有的課件復(fù)制到此模板上。優(yōu)點：①操作簡單；②PPT課件和Excel文件無縫連接，融為一體。缺點：如果復(fù)制的PPT課件版式與此模板不一致，需要進(jìn)行PPT母版操作和代碼復(fù)制。

● 結(jié)論

本文中的隨機(jī)點名功能與PPT操作有機(jī)融合，功能簡潔，簡單可行。從筆者在線教學(xué)實際應(yīng)用效果來看，它進(jìn)一步豐富了課件的表現(xiàn)形式，激發(fā)了學(xué)生的學(xué)習(xí)興趣，增強(qiáng)了與學(xué)生之間的交互，使課堂氣氛更活躍和活潑，并且其開發(fā)和運(yùn)行環(huán)境一致，控件與PPT課件教學(xué)內(nèi)容展示有機(jī)融為一體，教師操作上手容易，線上線下應(yīng)用快捷方便。