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

《使用PowerPoint中的VBA功能实现交互.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、三、使用PowerPoint中的VBA功能实现交互1.单选题的设计与实现（1）在幻灯片中先用文本框将单选题的题目内容设置好，然后打开“开发工具”选项卡，在“控件”选项组中单击“选项按钮”命令，在编辑区拖出三个“选项”按钮。在“选项”按钮上右击，在快捷菜单中选择“属性”，打开属性对话框，将Caption属性中的值改为：北京、上海、南京。（选择Font项可改变控件的字体和字号）。（2）在“控件”选项组中单击“命令按钮”命令，在编辑区拖出三个“命令”按钮和一个标签按钮，在“属性”对话框中分别将三个命令按钮的Caption选项改为：重新做、下一题、提交，将标签的Caption属性中

2、的字符删除，如图3-34所示。（3）为“命令”按钮添加代码。双击“重新做”按钮，进入VBA编程环境，在其中输入：OptionButton1.Value=FalseOptionButton2.Value=FalseOptionButton3.Value=FalseLabel2.Caption=""双击“提交”按钮进入VBA编程环境，在其中输入：IfOptionButton1.Value=TrueThenLabel2.Caption="答对了！"ElseLabel2.Caption="再想想！"EndIf双击“下一题”按钮，在VBA环境中输入：WithSlideShowWind

3、ows(1).View.GotoSlide2EndWith图3-34单选题提示：以上代码的涵义为在单击“重新做”按钮时，将题目重置，可重新答题。单击“提交”按钮时：如果我们选择了第一个答案，提交后会在标签中显示“答对了”，否则显示“再想想”。单击“下一题”按钮时，则跳到GotoSliden所指向的页面。注意：运行程序时必须启用宏。2.多选题的设计与实现（1）实现方法同单选题，不过在多选题里我们选择的控件为三个复选框和三个命令按钮，效果如图3-35所示。（2）双击“重新做”按钮进入VBA编程环境，在VBA环境中输入如下代码：CheckBox1.Value=FalseCheck

4、Box2.Value=FalseCheckBox3.Value=False双击“下一题”按钮，在VBA环境中输入：WithSlideShowWindows(1).View.GotoSlide3EndWith双击“提交”按钮，在其中输入如下代码：IfCheckBox1.Value=TrueAndCheckBox2.Value=FalseAndCheckBox3.Value=TrueThenMsgBox"正确"ElseMsgBox"错误"EndIf图3-35多选题讲解：该代码的涵义为在单击“提交”按钮时：如果选择了第一个答案和第三个答案，“提交”后会弹出结果对话框。3.填空题的

5、设计与实现（1）填空部分用文本框来接受用户输入的信息，在文本框的属性对话框中将“value”属性值删除。效果如图3-36所示。图3-36填空题（2）双击“重新做”按钮进入VBA编程环境，在VBA环境中输入如下代码：TextBox1.Value=""TextBox2.Value=""双击“下一题”按钮，在VBA环境中输入：WithSlideShowWindows(1).View.GotoSlide3EndWith双击“提交”按钮，在其中输入如下代码：If(TextBox1.Value="控制器"AndTextBox2.Value="运算器")Or(TextBox1.Value

6、="运算器"AndTextBox2.Value="控制器")ThenMsgBox"回答正确"ElseMsgBox"回答错误"EndIf讲解：该代码的涵义为单击“提交”按钮时：如果输入答案为“运算器”和“控制器”，“提交”后会弹出“回答正确”的对话框；否则弹出“回答错误”的对话框。四、使用PowerPoint中的触发器功能实现交互1.单选题的设计与实现（1）在幻灯片中使用文本框输入如图3-37所示的文字，注意要将题目、选项、答案提示放在不同的文本框中。图3-37单选题（2）按住Shift键将四个答案提示同时选中，打开“动画”选项卡，在“动画”选项组中给四个文本框同时添加“进入

7、”动画，在本例中所选择的动画类型为“随机线条”。（3）在“动画”选项卡中，单击“高级动画”选项组中的“动画窗格”按钮，打开“动画窗格”任务窗格，从中选择第一个自定义动画，单击右侧的下拉按钮，在展开的下拉列表中选择“计时”，打开“随机线条”对话框，单击“触发器”按钮，在展开的选项中选择“单击下列对象时启动效果”中的“矩形2南京”。此步骤的作用是，当单击文本框“A、南京”时会播放文本框“南京是江苏省的省会”的进入动画。用类似的方法将其余三个答案提示的进入动画也改为相应的触发器控制即可。2.音频、视频的控制与播放通过三个