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

三、使用PowerPoint中的VBA功能实现交互1.单选题的设计与实现（1）在幻灯片中先用文本框将单选题的题目内容设置好，然后打开“开发工具”选项卡，在“控件”选项组中单击“选项按钮”命令，在编辑区拖出三个“选项”按钮。在“选项”按钮上右击，在快捷菜单中选择“属性”，打开属性对话框，将Caption属性中的值改为：北京、上海、南京。（选择Font项可改变控件的字体和字号）。（2）在“控件”选项组中单击“命令按钮”命令，在编辑区拖出三个“命令”按钮和一个标签按钮，在“属性”对话框中分别将三个命令按钮的Caption选项改为：重新做、下一题、提交，将标签的Caption属性中的字符删除，如图3-34所示。（3）为“命令”按钮添加代码。双击“重新做”按钮，进入VBA编程环境，在其中输入：OptionButton1.Value=FalseOptionButton2.Value=FalseOptionButton3.Value=FalseLabel2.Caption=""双击“提交”按钮进入VBA编程环境，在其中输入：IfOptionButton1.Value=TrueThenLabel2.Caption="答对了！"ElseLabel2.Caption="再想想！"EndIf双击“下一题”按钮，在VBA环境中输入：WithSlideShowWindows(1).View.GotoSlide2EndWith图3-34单选题提示：以上代码的涵义为在单击“重新做”按钮时，将题目重置，可重新答题。单击“提交”按钮时：如果我们选择了第一个答案，提交后会在标签中显示“答对了”，否则显示“再想想”。单击“下一题”按钮时，则跳到GotoSliden所指向的页面。注意：运行程序时必须启用宏。2.多选题的设计与实现（1）实现方法同单选题，不过在多选题里我们选择的控件为三个复选框和三个命令按钮，效果如图3-35所示。（2）双击“重新做”按钮进入VBA编程环境，在VBA环境中输入如下代码：CheckBox1.Value=FalseCheckBox2.Value=FalseCheckBox3.Value=False双击“下一题”按钮，在VBA环境中输入：WithSlideShowWindows(1).View.GotoSlide3EndWith双击“提交”按钮，在其中输入如下代码：IfCheckBox1.Value=TrueAndCheckBox2.Value=FalseAndCheckBox3.Value=TrueThenMsgBox"正确"ElseMsgBox"错误"EndIf图3-35多选题讲解：该代码的涵义为在单击“提交”按钮时：如果选择了第一个答案和第三个答案，“提交”后会弹出结果对话框。3.填空题的设计与实现（1）填空部分用文本框来接受用户输入的信息，在文本框的属性对话框中将“value”属性值删除。效果如图3-36所示。图3-36填空题（2）双击“重新做”按钮进入VBA编程环境，在VBA环境中输入如下代码：TextBox1.Value=""TextBox2.Value=""（1）在PowerPoint中，利用插入形状制作如图3-39效果图中所示的主菜单“宋词欣赏”，形成“主菜单”组合。（2）选择“主菜单”组合作为触发器。（3）绘制一个方形作为子菜单,输入文本，将图形框与文本框组合在一起形成“子菜单”组合。（4）选中子菜单组合，打开“动画”选项卡，单击“高级动画”选项组中“添加动画”下方的下拉按钮，在展开的列表中选择“进入”动画中的“切入”效果。然后在“动画”选项卡“动画”选项组中单击“效果选项”下方的下拉按钮，在展开的列表中选择方向：“自顶部”。（5）选择子菜单组合，打开“动画”选项卡，单击“高级动画”选项组中的“动画窗格”按钮，弹出“动画窗格”任务窗格。在“动画窗格”任务窗格中已经有了子菜单的任务格；单击该任务格右侧的下拉按钮，在弹出的下拉列表中选择“计时”选项，弹出“切入”对话框；单击“计时”选项卡，在“计时”选项卡中单击“触发器”按钮，然后选中出现的“单击下列对象时启动效果”单选按钮，在右侧的下拉列表中选择“主菜单”组合图片，最后单击“确定”按钮。（6）用同样方法，