PPT課件中基于VBA的文本交互的實(shí)現(xiàn)

范利利，張祖芹，劉延華

（1.安徽師范大學(xué)，安徽蕪湖241000；2.鹽城師范學(xué)院，江蘇鹽城224000）

PPT課件中基于VBA的文本交互的實(shí)現(xiàn)

范利利1，張祖芹2，劉延華1

（1.安徽師范大學(xué)，安徽蕪湖241000；2.鹽城師范學(xué)院，江蘇鹽城224000）

文本是多媒體課件的重要組成元素之一，是學(xué)生獲取知識(shí)的主要來(lái)源。本文采用VBA與控件相結(jié)合的技術(shù)，對(duì)PPT課件中的文本實(shí)現(xiàn)交互進(jìn)行了設(shè)計(jì)與操作，使PPT課件中的文本能夠克服單一的呈現(xiàn)形式，呈現(xiàn)多樣化的表達(dá)，更好地適應(yīng)教與學(xué)的需要，為教學(xué)課件的開(kāi)發(fā)與完善提供有益的參考。

PPT課件；VBA；控件；文本交互

一、文本交互的必要性

多媒體課件通常由文本、圖形、圖像、聲音、視頻、動(dòng)畫(huà)等元素組成，但不是每一個(gè)課件都需要包含所有的元素，而文本卻是每一個(gè)課件中都不可缺少的，是課件內(nèi)容組成的基礎(chǔ)，是學(xué)生獲取知識(shí)的主要來(lái)源。PPT課件中的文本一般都是輸入或粘貼在幻燈片上，播放時(shí)以一段段篇幅呈現(xiàn)，除了設(shè)置一些自定義動(dòng)畫(huà)效果外，表現(xiàn)形式單一，更缺乏交互性，難以達(dá)到良好的知識(shí)傳授效果，學(xué)生觀看久了也會(huì)疲勞厭倦。在PPT課件中適當(dāng)增加文本的表現(xiàn)形式，實(shí)現(xiàn)一定的人機(jī)交互，會(huì)起到意想不到的作用。利用PowerPoint自帶的VBA和控件，即可實(shí)現(xiàn)交互的功能。

VBA（Visual Basic for Applications）是微軟公司在其開(kāi)發(fā)的各種應(yīng)用程序中共享的通用自動(dòng)化語(yǔ)言。控件是一種可視化部件，集合在控件工具箱中，在PowerPoint中選擇“視圖/工具欄/控件工具箱”即可打開(kāi)。

本文以《信息與信息技術(shù)》課程中“信息”這一部分內(nèi)容的PPT課件為例，具體闡述PPT課件中基于VBA的兩種文本交互的相關(guān)操作。

二、文本切換交互的實(shí)現(xiàn)

《信息與信息技術(shù)》課程中“信息”這一部分內(nèi)容，引用“感覺(jué)剝奪實(shí)驗(yàn)”，得出“信息是人類(lèi)生存和發(fā)展的基本條件與基本需求”的結(jié)論。PPT課件中的這部分內(nèi)容，使用文本切換的方式表現(xiàn)實(shí)驗(yàn)前和實(shí)驗(yàn)后兩種不同的實(shí)驗(yàn)現(xiàn)象。文本切換實(shí)例如圖1，具體制作流程如下：

圖1 文本切換交互實(shí)例

1.頁(yè)面控件放置

（1）放置切換按鈕。選擇“控件工具箱”中“切換按鈕”控件，在“感覺(jué)剝奪實(shí)驗(yàn)”的課件頁(yè)面上，按住鼠標(biāo)左鍵拖出一個(gè)切換按鈕(ToggleButton1)。

（2）放置命令按鈕。選擇“命令按鈕”控件，在“感覺(jué)剝奪實(shí)驗(yàn)”課件頁(yè)面的下方，拖出一個(gè)命令按鈕(CommandButton1)。

（3）放置標(biāo)簽。選擇“標(biāo)簽”控件，在切換按鈕下方，拖出第一個(gè)標(biāo)簽(Label1)。在命令按鈕左邊，拖出第二個(gè)標(biāo)簽(Label2)。

2.控件屬性設(shè)置

（1）設(shè)置切換按鈕屬性。選中切換按鈕右擊鼠標(biāo)，在彈出的菜單中選擇“屬性”。在“屬性”對(duì)話(huà)框中，Caption項(xiàng)對(duì)應(yīng)的內(nèi)容為切換按鈕名稱(chēng)，改默認(rèn)的“ToggleButton1”為“實(shí)驗(yàn)結(jié)果”。通過(guò)Font項(xiàng)設(shè)置名稱(chēng)的字體、字形和大小。

（2）設(shè)置命令按鈕屬性。將Caption項(xiàng)對(duì)應(yīng)的內(nèi)容改為“結(jié)論”。

（3）設(shè)置標(biāo)簽屬性。分別將兩個(gè)標(biāo)簽Caption項(xiàng)對(duì)應(yīng)的內(nèi)容清除。

3.代碼編輯

（1）雙擊“實(shí)驗(yàn)結(jié)果”切換按鈕，在Private Sub ToggleButton1_Click()與End Sub之間輸入代碼：

Private Sub ToggleButton1_Click() If ToggleButton1.Value=True Then

Label1.Caption="實(shí)驗(yàn)前，大多數(shù)被測(cè)者以為能利用這個(gè)機(jī)會(huì)好好睡一覺(jué)，或者考慮論文課程計(jì)劃。"

Else

Label1.Caption="實(shí)驗(yàn)后，被測(cè)者報(bào)告說(shuō)，在實(shí)驗(yàn)過(guò)程中,對(duì)任何事情都不能進(jìn)行清晰的思考。"

End If End Sub

點(diǎn)擊“實(shí)驗(yàn)結(jié)果”切換按鈕，標(biāo)簽1顯示實(shí)驗(yàn)前的現(xiàn)象，再次點(diǎn)擊，標(biāo)簽1顯示實(shí)驗(yàn)后的現(xiàn)象，文本切換交互就是以切換按鈕控件對(duì)標(biāo)簽內(nèi)的文本內(nèi)容進(jìn)行切換顯示。

（2）雙擊“結(jié)論”命令按鈕，在Private Sub CommandButton1_Click()與End Sub之間輸入代碼：

Private Sub CommandButton1_Click()

Label2.Caption=InputBox("人類(lèi)生存和發(fā)展的基本條件與基本需求","結(jié)論","")

End Sub

點(diǎn)擊“結(jié)論”按鈕，跳出對(duì)話(huà)框，填寫(xiě)結(jié)論答案，并在標(biāo)簽2中顯示。

圖2 文本下拉交互實(shí)例

三、文本下拉交互的實(shí)現(xiàn)

《信息與信息技術(shù)》課程中“信息”這一部分內(nèi)容，知識(shí)點(diǎn)“物質(zhì)、能量、信息是人類(lèi)在世界上生存與發(fā)展的三大要素”是引用“野外生存訓(xùn)練”得出的。在PPT課件中，應(yīng)用列表框和組合框控件實(shí)現(xiàn)下拉式交互效果，生動(dòng)表現(xiàn)“物質(zhì)、能量、信息”三大要素在生活中的具體指代物。文本下拉實(shí)例如圖2，具體制作流程如下：

1.頁(yè)面控件放置

（1）放置組合框。選擇“控件工具箱”中的“組合框”控件，在“野外生存訓(xùn)練”的課件頁(yè)面上，按住鼠標(biāo)左鍵拖出一個(gè)組合框（ComboBox1）。

（2）放置列表框。選擇“列表框”控件，在組合框右邊，拖出一個(gè)列表框（ListBox1）。

（3）放置文本框。選擇“文本框”控件，在組合框和列表框下方，拖出一個(gè)文本框（TextBox1）。

（4）放置標(biāo)簽。選擇“標(biāo)簽”控件，在文本框下方，拖出一個(gè)標(biāo)簽(Label1)。

（5）放置命令按鈕。選擇“命令按鈕”控件，在頁(yè)面的下方，拖出三個(gè)命令按鈕(CommandButton1、CommandButton2、CommandButton3)。

2.控件屬性設(shè)置

分別選中命令按鈕右擊鼠標(biāo)，在彈出的菜單中選擇“屬性”，設(shè)置命令按鈕屬性。在“屬性”對(duì)話(huà)框中，改Caption項(xiàng)默認(rèn)的“CommandButton1”為“演示”，“CommandButton2”為“清除”，“CommandButton3”為“結(jié)論”。

3.代碼編輯

（1）雙擊“演示”命令按鈕，在Private Sub CommandButton1_Click()與End Sub之間輸入代碼：

Private Sub CommandButton1_Click()

ComboBox1.AddItem"鋼刀"

ComboBox1.AddItem"火石"

ComboBox1.AddItem"指南針"

End Sub

單擊“演示”命令按鈕，組合框添加三個(gè)項(xiàng)目。組合框中文本實(shí)現(xiàn)下拉交互。

（2）雙擊“組合框”控件，在Private Sub ComboBox1_Click()與End Sub之間輸入代碼：

Private Sub ComboBox1_Click()

ListBox1.Clear

ListBox1.AddItem"物質(zhì)"

ListBox1.AddItem"能量"

ListBox1.AddItem"信息"

End Sub

點(diǎn)擊組合框，列表框添加三個(gè)項(xiàng)目。列表框中文本實(shí)現(xiàn)下拉交互。

（3）雙擊“列表框”控件，在Private Sub List-Box1_Click()與End Sub之間輸入代碼：

Private Sub ListBox1_Click()

TextBox1.Text=""

TextBox1.Text=TextBox1.Text&ComboBox1. Text&"---->"&ListBox1.Text

End Sub

點(diǎn)擊列表框，文本框顯示點(diǎn)擊的列表框和組合框的內(nèi)容。

（4）雙擊“清除”命令按鈕，在Private Sub CommandButton2_Click()與End Sub之間輸入代碼：

Private Sub CommandButton2_Click()

ComboBox1.Clear

ListBox1.Clear

Label1.Caption=""

TextBox1.Text=""

End Sub

命令按鈕2用于清除內(nèi)容。

（5）雙擊“結(jié)論”命令按鈕，在Private Sub CommandButton3_Click()與End Sub之間輸入代碼：

Private Sub CommandButton3_Click()

Label1.Caption=InputBox("人類(lèi)在世界上生存與發(fā)展的三大要素","結(jié)論","")

End Sub

單擊“結(jié)論”命令按鈕，產(chǎn)生對(duì)話(huà)框，輸入內(nèi)容，并在標(biāo)簽中顯示。

四、文本交互的應(yīng)用價(jià)值與意義

利用PowerPoint自帶的VBA和控件，有效地實(shí)現(xiàn)了以上兩種文本交互，本文將兩種文本交互應(yīng)用于具體的課件實(shí)例中闡述具體操作，將這兩種交互類(lèi)型挖掘出來(lái)應(yīng)用于一般課件制作中也具有一定價(jià)值。文本切換交互可用于前后兩段文本的顯示或兩個(gè)知識(shí)點(diǎn)的比較，無(wú)須將兩段文本放置在兩張幻燈片上，可以節(jié)省課件的空間，又合理布局課件的頁(yè)面。文本下拉交互可用于相關(guān)知識(shí)點(diǎn)的歸納或列舉相近概念，教師講解時(shí)操作方便靈活，學(xué)生能將相近知識(shí)點(diǎn)有機(jī)聯(lián)系起來(lái)。文本交互的實(shí)際應(yīng)用意義歸納起來(lái)有以下幾點(diǎn)：

首先，有利于教師提高課堂效率。使用文本交互形式呈現(xiàn)的教學(xué)信息多于一般性文本的呈現(xiàn)，相同的課件空間包含更多的信息量，相同的時(shí)間內(nèi)向?qū)W生傳遞更多的知識(shí)。

第二，有利于學(xué)生知識(shí)的獲取和保持。文本切換和下拉交互需要對(duì)知識(shí)點(diǎn)進(jìn)行歸納后呈現(xiàn)，簡(jiǎn)明扼要，能突出教學(xué)內(nèi)容的重點(diǎn)，形式上生動(dòng)形象，可提高學(xué)生的學(xué)習(xí)興趣和對(duì)知識(shí)的掌握程度。

第三，有利于增強(qiáng)教學(xué)軟件的功能。Power-Point作為使用頻率最高的課件制作軟件，也具有一定的不足之處，文本交互的實(shí)現(xiàn)可以彌補(bǔ)其不足，挖掘該軟件的更多功能，豐富PPT課件的表現(xiàn)形式。

[1]程智.利用VBA 來(lái)提高PowerPoint 制作的課件交互性[J].中國(guó)電化教育，2002，（185）：52-53.

[2]宋志明.智能交互PowerPoint 也行[J].信息技術(shù)教育，2004，(12)：66-67.

[3]閏發(fā)利，閏繼明.在PowerPoint 課件中制作單選、多選、判斷和填空4種題型[J].中小學(xué)電教，2005，（9）.

[4]江建.應(yīng)用PowerPoint 控件讓課件無(wú)限精彩[J].信息技術(shù)教育，2008，(2):73-75.

（編輯：魯利瑞）

book=67,ebook=79

G434 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1673-8454（2010）16-0067-03