欢迎到
按钮控制PowerPoint播放视频对象
用PowerPoint制作多媒体演示文稿的时候，很多人喜欢加入视频以增强作品的表现力。其实过程十分简单，只需依次选择“插入→影片和声音→文件中的影片”菜单命令，找到视频文件并双击即可。如果我们还需要对视频播放加以控制，比如播放、暂停等，我们该如何实现呢?其实可以使用PowerPoint 2003中的触发器来实现。
打开PowerPoint，插入视频文件。在询问“幻灯片放映时如何播放此视频”的界面中选择“单击时”，接着则会在窗口中出现一个小的播放框，调整其大小至合适。
单击“绘图”工具栏中的“矩形”工具，拖拉出一个矩形框。在此矩形框上单击右键，选择“添加文本”命令，文本内容为“播放”，以它作为控制视频播放的命令按钮。调整好矩形框和文本的大小、颜色等。复制两个，分别命名为“暂停”、“停止”。这样，三个控制按钮就算做好了。当然，你也可以选用其他的形式来制作这三个按钮，比如艺术字、动作按钮等。
1.暂停按钮的实现
选中视频播放框，单击鼠标右键，在弹出的快捷菜单中选择“自定义动画”命令。可以看到，在“自定义动画”任务窗格中已经有了这个视频的任务格。默认情况下，幻灯片放映时如果单击视频画面，就会暂停。
单击有小鼠标的那一格，会在该格右侧出现下拉按钮，单击，在弹出的下拉列表中选择“计时”命令。在“暂停影片”对话框中，选择“选项卡”，然后在“单击下列对象时启动效果”单选项右侧的下拉列表中选择“矩形2:暂停”。最后单击“确定”按钮。
2.播放和停止按钮的实现
选中视频的播放框，依次选择“添加效果→影片操作→播放”命令，可以看到在任务窗格中增加了“播放”项(有一个向右三角箭头的即是)。
同样方法选择“播放影片”对话框的“计时”选项卡，单击“触发器”按钮，然后选中出现的“单击下列对象时启动效果”单选项，并在其右侧的下拉列表中选择“矩形1:播放”。这样，单击“播放”按钮即可开始视频播放的效果了。
“停止”按钮与“播放”按钮的制作方法基本相同，这里不再赘述。
提示:如果你想在作品中加入一段声音作为背景音乐，你也可以采用上述方法为背景音乐添加控制按钮，有兴趣的朋友不妨尝试一下。
PowerPoint制作自动交互问答课件
教师在每节课结束前，习惯留几道习题让学生们自行练习，以巩固当堂课所学的知识。如果用PowerPoint来做相应的演示文稿，可以利用其VBA功能，让这些练习具有交互功能。
如图1（略），这是一个答题界面示例，可以判断答案正确性的多项选择题，下面我们来看看具体的实现过程。
1．启动PowerPoint2003（其他版本操作相似），打开相应的课件演示文稿，定位到制作练习题幻灯片中，输入题干字符。
2．执行“视图→工具栏→控件工具箱”命令，展开“控件工具箱”，点击一下其中的“复选框”按钮，然后在幻灯片中拖拉出一个复选框来。
3．选中上述复选框（CheckBox1），单击“控件工具箱”上的“属性”按钮，打开“属性”对话框，切换到“按分类序”标签下，展开“外观”选项，将其中的“Caption”后面的字符修改为题目相应的选项字符（如“水”），再展开“字体”选项，点击右侧的“省略号”按钮，打开“字体”对话框，设置好字体、字号等。
小贴士：控件的其他属性可以直接采用默认的属性。
4．将上述复制框复制三份（根据备选项的多少确定复制数量），分别将“Caption”属性修改为题目其他选项字符（如“纯碱、熟石灰、干冰”）。
5．再用“控件工具箱”的“命令按钮”在幻灯片上添加一个按钮，并将其“Caption”属性修改为“判断”（或其他字符）。再双击该按钮，进入“Visual Basic编辑器”状态（如图4），将下述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。
If CheckBox1.Value = True And CheckBox4.Value = True Then
MsgBox "选择正确。", vbOKOnly, "结果"
Else
If CheckBox1.Value = True Or CheckBox4.Value = True Then
MsgBox “选对了一个。”, vbOKOnly, “提示”
Else
MsgBox "选择错误！正确答案是“水和干冰”！", vbOKOnly, "提示"
End If
End If
小贴士：上述代码的含义是，如果（If）选择了第1和第4项（CheckBox1.Value = True And CheckBox4.Value = True），按下“判断”按钮，则弹出如图3所示界面和消息（MsgBox）框（选择错误！正确答案是“水和干冰”！——消息内容；vbOKOnly——消息框中仅显示出一个“确定”按钮；提示——消息框标题）。
如果只选择了第1项或第4项，则会弹出如图所示的消息框；
其他选择均会弹出如图所示的消息框。
6．将上述命令按钮复制一份，将“Caption”属性修改为“重选”），再双击该按钮，将下述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
