PPT实例：互动式幻灯片

教师在用演示文稿进行课堂教学时，常常在最后一段时间里，给学生留下几道习题，供学生们练习。我们可以利用PowerPoint的动画触发器和VBA功能，制作出一些互动型的幻灯片，学生在练习时，演示文稿能自动判断答案是否正确。

　　文章末尾提供.ppt原文件下载。

　　一、触发器法

　　我们利用动画触发器功能，来制作一道选择题的幻灯片（界面如图一）。

　　2、利用文本框，输入题干内容（参见图一）。

　　3、展开“幻灯片放映→动作按钮”下面的级联菜单，选中“动作按钮：自定义”选项（参见图二），然后在幻灯片中拖拉出一个按钮来。

　　4、选中插入的按钮，右击鼠标，在随后弹出的快捷菜单中，选“添加文本”选项，在“动作按钮”上添加第一个备选答案字符（如“A、152克/摩尔”），并设置好字体、字号、字符颜色等。

　　5、调整好“动作按钮”的大小，并将其定位在幻灯片的合适位置上。

　　注意：其实，我们也可以用“文本框”来输入备选答案项。此处之所以用“动作按钮”，是因为为了增强幻灯片的观感效果，别无其他意义。

6、选中上述“动作按钮”，在按住Ctrl键的同时，拖拉一下鼠标，将上述按钮快速复制1份（重复操作几次，再复制2份），并修改其中的字符为其它备选项答案（参见图一）。

　　7、插入文本框，并输入“正确、错误”及相关提示的字符（参见图一），并设置好字体、字号、字符颜色等。

　　8、选中上述第一个文本框（即包含“错误！有结晶水！”字符的，参见图一），执行“幻灯片放映→自定义动画”命令，展开“自定义动画”任务窗格（如图三），单击“添加动画”右侧的下拉按钮，在随后出现的下拉列表中，选“进入→飞入”选项；再按“方向”右侧的下拉按钮，在随后出现的列表中，选择“自左铡”选项，为选中的文本框添加动画。

　　9、在“自定义动画”任务窗格的第一个动画方案上双击鼠标，打开“飞入”对话框（如图四），切换到及时标签下，单击其中的“触发器”按钮，展开下面的选项，选中“单击下列对象时启动效果”选项，然后按其右侧的下拉按钮，在随后出现的下拉列表中选择“动作按钮：自定义2……”选项（即第一个备选答案对应的“动作按钮”项），“确定”返回。

　　10、仿照上述8、9步的操作，设置好另外3个文本框的动画及触发器。

　　至此，一张互动式幻灯片制作完成（图五是在播放过程中，选择B备选答案后的效果）。

二、VBA法

　　采取上述“触发器法”通常只能制作选择性的互动幻灯片，而对于那些填空式的互动幻灯片，我们用VBA来实现。

　　1、在相应的演示文稿中，添加一张空白幻灯片。并用文本框输入填空题的题目内容（参见图六）。

　　2、执行“视图→工具栏→控件工具箱”命令，展开“控件工具箱”工具条（参见图六）。单击工具条上的“文本框”按钮，然后在填空题的空格处拖拉出一个控件文本框来（参见图六）。

　　注意：选中文本框，单击工具条上的“属性”按钮，展开“文本框”属性对话框（参见图七），选中“font”选项，然后点击后面“…”号，可以打开“字体”对话框，设置字体、字型、字号；选中“TextAlig”选项，然后按其右侧的下拉按钮，即可设置文本的对齐方式。

　　3、再单击工具条上的“命令按钮”按钮，然后在幻灯片合适位置上拖拉出一个按钮来（参见图七）。选中此按钮，单击工具条上的“属性”按钮，展开“命令按钮”属性对话框（参见图七），将其中的“Caption”选项后面的内容修改为“查看结果”（具体修改内容，请根据需要确定），并关闭属性窗口。

4、双击插入的命令按钮，进入VBA编辑窗口（如图八），在“Private Sub CommandButton1_Click()”和“End Sub”语句之间，输入下述代码：

　　If TextBox1.Text = "物理" Then
　　　　hd = MsgBox("你填对了", vbOKCancel, "结果")
　　Else
　　　　hd = MsgBox("你填错了", vbOKCancel, "结果")
　　End If

　　代码输入完成后的效果请参见图八。

　　注意：①代码中的“hd”为自定义变量，可以用其他字母代码。②根据实际需要，可以将代码中的相应的字符替换成其他字符。

　　5、关闭VBA编辑窗口。

　　制作完成，赶快按下F5功能键，检查一下实际效果吧（图九是演示的效果）！