李黎

[摘 要]PowerPoint是教師用于制作課件的常用軟件之一，在進(jìn)行課件制作時(shí)，如果將主題、數(shù)據(jù)、圖表、動(dòng)畫、音頻、視頻等集于一體，做成圖、文、聲、畫并茂的演示文稿，更能增強(qiáng)課堂的生動(dòng)性，有利于學(xué)生理解。而PowerPoint提供的控件，可以使演示文稿以一種精細(xì)的方式在放映過程中與用戶交換信息，建立良好的交互關(guān)系，本文梳理了控件在PowerPoint中的簡單應(yīng)用。

[關(guān)鍵詞]PowerPoint；控件；控件工具箱 1013939/jcnkizgsc201520230

1 控件的概念

控件是一種圖形用戶界面元素，用戶可與之交互以輸入或操作數(shù)據(jù)的對(duì)象。PowerPoint 中的 ActiveX 控件結(jié)合相應(yīng)的 VBA 編程可以實(shí)現(xiàn)很多復(fù)雜的交互，下面筆者將結(jié)合具體實(shí)例來介紹一下幾種常見的應(yīng)用。

2 在PowerPoint中插入Flash影片和控制Flash影片

21 將指定SWF文件保存到課件所在文件夾中

（1）從網(wǎng)站或其他途徑下載、拷貝、制作SWF文件。

（2）保存文件到課件所在文件夾中。

（3）給這個(gè)改個(gè)容易記的名字，并查看這個(gè)SWF文件的所在路徑、全名。

22 將SWF文件插入到自己的PPT中

（1）打開課件，選擇指定幻燈片；

（2）單擊“視圖”菜單，選擇“工具欄”中的“控件工具箱”，點(diǎn)擊 “其他控件”，從下拉列表中選擇 “Shockwave Flash Object”，當(dāng)指針變成“十”字光標(biāo)時(shí)，在幻燈片上畫出一個(gè)方框；

（3）在方框上鼠標(biāo)右擊，選擇“屬性”，在“影片URL”中輸入SWF文件的所在路徑、全名，或在屬性對(duì)話框的Movie后輸入路徑和文件名即可。

23 保存文件

注意：SWF文件要和PPT文件放在一個(gè)文件夾中；要嵌入 Flash 文件，在PPT文件移動(dòng)時(shí)，不再移動(dòng)SWF的原文，需將EmbedMovie 屬性設(shè)為True。

24 設(shè)置播放/暫停按鍵

（1）點(diǎn)擊“控件工具箱”中的命令按鈕，在Flash影片下畫出兩個(gè)，將屬性中的Caption改為“暫?！焙汀安シ拧薄?/p>

（2）雙擊暫停按鈕，彈出VBA窗口，在“PrivateSubCommand-Button1_Click（）”與“EndSub”之間輸入“ShockwaveFlash1Playing=False”（即暫停）。（ShockwaveFlash1即Flash控件名。）

（3）雙擊播放按鈕，在VBA窗口的“PrivateSubCommandButton1_Click（）”與“EndSub”之間輸入“ShockwaveFlash1Playing=True”（即播放）。

3 用Windows Media Player控件隨意控制音視頻播放

（1）新建一張幻燈片。

（2）同上操作，打開“控件工具箱”面板，選擇“其他控件”中的“Windows Media Player”控件，在幻燈片中畫出一個(gè)矩形區(qū)域。

（3）右擊播放器，選擇“屬性”命令，在“屬性”對(duì)話框中，單擊 “自定義”后的……，在“文件名或url”中鍵入音視頻文件的路徑和文件名，或在屬性對(duì)話框的Movie后輸入路徑和文件名，保存文件。

（4）播放時(shí)，可以通過播放器對(duì)音視頻進(jìn)行隨意控制。

注意：在PPT中能插入的動(dòng)畫和視頻、音頻格式。

動(dòng)畫：SWF、GIF；視頻：AVI、MPG、WMV；音頻：AVI、MPG、WAV、MID、MP3（有的不支持）。

4 滾動(dòng)“文本框”

在課件制作過程中，如果有些文字內(nèi)容需要顯示在一張幻燈片中，但一頁顯示不全時(shí)，可以在文本框中拖動(dòng)滾動(dòng)條顯示文字，這時(shí)可設(shè)置滾動(dòng)文本框?qū)崿F(xiàn)操作。具體步驟如下：

（1）新建一張幻燈片，選擇版式。

（2）點(diǎn)擊“控件工具箱”中的 “文本框”控件，在編輯區(qū)按住左鍵拖出一個(gè)文本框，適當(dāng)調(diào)整。

（3）“文本框”屬性設(shè)置：右擊“文本框”，選擇“屬性”，彈出“文本框”屬性窗口，進(jìn)行設(shè)置如下：

允許使用回車鍵換行，EnterKeyBehavior設(shè)為True；輸入多行文字，MultiLine設(shè)為True；利用滾動(dòng)條來顯示多行文字內(nèi)容，ScrollBars屬性中1-fmScrollBarsHorzontal為水平滾動(dòng)，2-fmScrollBarsVertical為垂直滾動(dòng)，3-fmScrollBarsBoth為水平滾動(dòng)條與垂直滾動(dòng)條均存在，根據(jù)需要設(shè)置。當(dāng)文字超出文字框時(shí)會(huì)出現(xiàn)拖動(dòng)的滾動(dòng)條。適當(dāng)設(shè)置其他屬性，如BackColor（文本框背景色）、TextAlign（文字對(duì)齊方式）等。

（4）文本框內(nèi)容輸入：右擊“文本框”，選擇“文字框?qū)ο蟆敝械摹熬庉嫛?，輸入文字?nèi)容，即可完成制作。

至此，隨滾動(dòng)條上下拖動(dòng)而移動(dòng)文字的文本框就完成了。

5 智能交互式課堂練習(xí)

51 填空題的制作

用前面的方法，插入一個(gè)命令按鈕、一個(gè)文本框控件。將命令按鈕的Caption修改為“練習(xí)”，雙擊命令按鈕控件，在VB窗口的“Private Sub CommandButton1_Click（）”與“End Sub”之間輸入以下代碼：

If TextBox1Text="mini" Then

MsgBox（"Yes"）//（消息框顯示為Yes）

TextBox1Text=""

Else MsgBox（"No"）//（消息框顯示為No）

TextBox1Text=""

EndIf

（Textbox1文本框控件名，MsgBox顯示消息框信息）

52 單選題的制作

插入四個(gè)選項(xiàng)按鈕和一個(gè)命令按鈕。將選項(xiàng)按鈕名稱改為op1、op2、op3、op4，Caption改為A、B、C、D，把它們放在對(duì)應(yīng)的選項(xiàng)前面。

把命令按鈕的Caption修改為“練習(xí)”，雙擊“練習(xí)”按鈕，在“Private Sub CommandButton1_Click（）”與“End Sub”之間輸入以下代碼：

If op1Value=True Then

MsgBox（"GOOD！正確"）

Else

MsgBox（"錯(cuò)誤，正確答案為A"）

End If

53 判斷題的制作

與單選題的制作方法基本相同，只需將選項(xiàng)設(shè)置成“正確”和“錯(cuò)誤”兩個(gè)。

其他智能操作如通過控件實(shí)現(xiàn)翻頁、做多項(xiàng)選擇題、添加超鏈接等均可使用不同控件及相應(yīng)的VBA編程來完成。

如果編完程序卻運(yùn)行不起來，可以修改“工具欄/宏/安全性”級(jí)別選“中”或“低”，最終實(shí)現(xiàn)交互功能。

參考文獻(xiàn)：

[1]吳欣平如何在PowerPoint課件中插入WindowsMediaPlayer視頻控件[J].中國教育技術(shù)裝備，2007（01）.

[2]孟憲啟PowerPoint控件工具箱典型應(yīng)用三例[J].電腦知識(shí)與技術(shù)，2010（04）.