李黎

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

[關鍵詞]PowerPoint；控件；控件工具箱[DOI]10.13939/j.cnki.zgsc.2015.20.230

1 控件的概念

控件是一種圖形用戶界面元素，用戶可與之交互以輸入或操作數據的對象。PowerPoint 中的 ActiveX 控件結合相應的 VBA 編程可以實現很多復雜的交互，下面筆者將結合具體實例來介紹一下幾種常見的應用。

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

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

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

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

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

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

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

（2）單擊“視圖”菜單，選擇“工具欄”中的“控件工具箱”，點擊 “其他控件”，從下拉列表中選擇 “Shockwave Flash Object”，當指針變成“十”字光標時，在幻燈片上畫出一個方框；

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

2.3 保存文件

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

2.4 設置播放/暫停按鍵

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

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

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

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

（1）新建一張幻燈片。

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

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

（4）播放時，可以通過播放器對音視頻進行隨意控制。

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

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

4 滾動“文本框”

在課件制作過程中，如果有些文字內容需要顯示在一張幻燈片中，但一頁顯示不全時，可以在文本框中拖動滾動條顯示文字，這時可設置滾動文本框實現操作。具體步驟如下：

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

（2）點擊“控件工具箱”中的 “文本框”控件，在編輯區(qū)按住左鍵拖出一個文本框，適當調整。

（3）“文本框”屬性設置：右擊“文本框”，選擇“屬性”，彈出“文本框”屬性窗口，進行設置如下：

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

（4）文本框內容輸入：右擊“文本框”，選擇“文字框對象”中的“編輯”，輸入文字內容，即可完成制作。

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

5 智能交互式課堂練習

5.1 填空題的制作

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

If TextBox1.Text="mini" Then

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

TextBox1.Text=""

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

TextBox1.Text=""

EndIf

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

5.2 單選題的制作

插入四個選項按鈕和一個命令按鈕。將選項按鈕名稱改為op1、op2、op3、op4，Caption改為A、B、C、D，把它們放在對應的選項前面。

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

If op1.Value=True Then

MsgBox（"GOOD！正確"）

Else

MsgBox（"錯誤，正確答案為A"）

End If

5.3 判斷題的制作

與單選題的制作方法基本相同，只需將選項設置成“正確”和“錯誤”兩個。

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

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

參考文獻：

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

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