使用powerpoint中的vba功能实现交互.pdfVIP

三、使用 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-34 单选题 提示：以上代码的涵义为在单击“重新做”按钮时，将题目重置，可重新答题。单击“提 交”按钮时：如果我们选择了第一个答案，提交后会在标签中显示“答对了”，否则显示“再 想想”。单击“下一题”按钮时，则跳到 GotoSlide n 所指向的页面。 注意：运行程序时必须启用宏。 2.多选题的设计与实现 （1）实现方法同单选题，不过在多选题里我们选择的控件为三个复选框和三个命令按 钮，效果如图 3-35 所示。 （2）双击“重新做”按钮进入VBA 编程环境，在 VBA 环境中输入如下代码： CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False 双击“下一题”按钮，在 VBA 环境中输入： With SlideShowWindows(1).View .GotoSlide 3 End With 双击“提交”按钮，在其中输入如下代码： If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value =True Then MsgBox 正确 Else MsgBox 错误 End If 图 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 = 控制器)