简析PowerPoint中控件的应用

李黎

[摘 要]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改为“暂停”和“播放”。

（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”控件，在幻灯片中画出一个矩形区域。

（3）右击播放器，选择“属性”命令，在“属性”对话框中，单击 “自定义”后的……，在“文件名或url”中键入音视频文件的路径和文件名，或在属性对话框的Movie后输入路径和文件名，保存文件。

（4）播放时，可以通过播放器对音视频进行随意控制。

注意：在PPT中能插入的动画和视频、音频格式。

动画：SWF、GIF；视频：AVI、MPG、WMV；音频：AVI、MPG、WAV、MID、MP3（有的不支持）。

4 滚动“文本框”

在课件制作过程中，如果有些文字内容需要显示在一张幻灯片中，但一页显示不全时，可以在文本框中拖动滚动条显示文字，这时可设置滚动文本框实现操作。具体步骤如下：

（1）新建一张幻灯片，选择版式。

（2）点击“控件工具箱”中的 “文本框”控件，在编辑区按住左键拖出一个文本框，适当调整。

（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）.