使用PowerPoint中的VBA功能实现交互.docVIP

使用PowerPoint中的VBA功能实现交互 三、使用PowerPoint中的VBA功能实现交互 1.单选题的设计与实现 （1）在幻灯片中先用文本框将单选题的题目内容设置好，然后打开“开发工具”选项卡，在“控件”选项组中单击“选项按钮”命令，在编辑区拖出三个“选项”按钮。在“选项”按钮上右击，在快捷菜单中选择“属性”，打开属性对话框，将Caption属性中的值改为：北京、上海、南京。（选择Font项可改变控件的字体和字号）。 （2）在“控件”选项组中单击“命令按钮”命令，在编辑区拖出三个“命令”按钮和一个标签按钮，在“属性”对话框中分别将三个命令按钮的Caption选项改为：重新做、下一题、提交，将标签的Caption 属性中的字符删除，如图3-34所示。 （3）为“命令”按钮添加代码。双击“重新做”按钮，进入VBA 编程环境，在其中输入： OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False Label2.Caption = 双击“提交”按钮进入VBA 编程环境，在其中输入： If OptionButton1.Value = True Then Label2.Caption = 答对了！ Else Label2.Caption = 再想想！ End If 双击“下一题”按钮，在VBA 环境中输入： With SlideShowWindows(1).View .GotoSlide 2 End With 图3-35 多选题 讲解：该代码的涵义为在单击“提交”按钮时：如果选择了第一个答案和第三个答案，“提交”后会弹出结果对话框。 3.填空题的设计与实现 （1）填空部分用文本框来接受用户输入的信息，在文本框的属性对话框中将“value”属性值删除。效果如图3-36所示。 图3-36 填空题 （2）双击“重新做”按钮进入VBA 编程环境，在VBA 环境中输入如下代码： TextBox1.Value = TextBox2.Value = 双击“下一题”按钮，在VBA 环境中输入： With SlideShowWindows(1).View .GotoSlide 3 End With 双击“提交”按钮，在其中输入如下代码： If (TextBox1.Value = 控制器 And TextBox2.Value = 运算器) Or (TextBox1.Value = 运算器 And TextBox2.Value = 控制器) Then MsgBox 回答正确 Else MsgBox 回答错误 End If 讲解：该代码的涵义为单击“提交”按钮时：如果输入答案为“运算器”和“控制器”，“提交”后会弹出“回答正确”的对话框；否则弹出“回答错误”的对话框。 四、使用PowerPoint中的触发器功能实现交互 1.单选题的设计与实现 （1）在幻灯片中使用文本框输入如图3-37所示的文字，注意要将题目、选项、答案提示放在不同的文本框中。 图3-37 单选题 （2）按住Shift 键将四个答案提示同时选中，打开“动画”选项卡，在“动画”选项组中给四个文本框同时添加“进入”动画，在本例中所选择的动画类型为“随机线条”。 （3）在“动画”选项卡中，单击“高级动画”选项组中的“动画窗格”按钮，打开“动画窗格”任务窗格，从中选择第一个自定义动画，单击右侧的下拉按钮，在展开的下拉列表中选择“计时”，打开“随机线条”对话框，单击“触发器”按钮，在展开的选项中选择“单击下列对象时启动效果”中的“矩形2 南京”。此步骤的作用是，当单击文本框“A、南京”时会播放文本框“南京是江苏省的省会”的进入动画。用类似的方法将其余三个答案提示的进入动画也改为相应的触发器控制即可。 2.音频、视频的控制与播放 通过三个按钮控制视频的播放，如图3-38所示。 图3-38 影片播放的控制 （1）在演示文稿中插入视频文件。 （2）制作“播放”、“暂停”、“停止”按钮，通过插入形状实现。 （2）“暂停”按钮控制的实现：单击插入的视频文件，打开“动画”选项卡，单击“高级动画”选项组中的“动画窗格”按钮，弹出“动画窗格”任务窗格。可以看到，在“动画窗格”任务窗格中已经有了这个视频文件的任务格；单击该任务格右侧的下拉按钮，在弹出的下拉列表中选择“计时”选项，弹出“暂停视频”对话框；单击“计时”选项卡，再选定“单击下列对象时启动效果”单选按钮，在右侧的下拉列表中选择“暂停按钮图片”，最后单击“确定”按钮。 （3）“播放”、“停止”按钮控制的实现：选定视频文件，在“动画”选项卡的“高级动画”选项组中单击“添加动画”下的下拉按钮，在展开的列表中选择“播放”命令，可以看到在任务窗格