- 3
- 0
- 约6.54千字
- 约 54页
- 2017-06-03 发布于北京
- 举报
PowerPoint应用和技巧 PowerPoint中控件的应用 PowerPoint中插入Flash动画 用VBA制作智能交互型的课件 2.画出文本框 选择“控件工具箱”-“文本框”选项,在编辑区按住鼠标左键拖拉出一个文本框,调整位置及大小。 PowerPoint中控件的应用 4.输入文本内容 右击文本框,在右键快捷菜单中选择“文本框对象”-“编辑”选项,即可进行文本内容的输入,或按“Ctrl+V”把剪贴板上的文字拷贝到文本框中。 PowerPoint中控件的应用 5.带滚动条的文本框编辑完成 文本编辑完之后,在文本框外任意处单击左键退出编辑状态就完成了。 思考与练习 1.如何在同一演示文稿中使用不同模板? 2.在演示文稿中如何使用母板来统一设计幻灯片的风格? 3.在演示文稿中如何使用配色方案来统一设计幻灯片的风格? 4.在演示文稿中如何使用设计模板来统一设计幻灯片的风格? 双击幻灯片中的控件,或用菜单 “工具”-“宏”-“Visual basic编辑器”命令,即可进入VBA编程状态。进入VBA后,需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口,按F4键即可调出该窗口。 (二)VBA的编程环境 二、制作智能交互型的课件 以制作单选题、选择题、判断题和填空题为例来介绍智能的课件的制作方法。 二、制作智能交互型的课件 (一)单选题的制作 1.题目 题目的输入可用文本框,也可用标签。 如果用文本框,直接输入文本即可。如果用标签,插入后双击该标签启动VBA,修改Caption属性为“5X-15=0的解是:”,再根据需要修改其他属性。 单选题的运行界面 二、制作智能交互型的课件 2.答案选项 插入一个单选框(第一个单选框),修改其Caption属性为“A 3”,其他属性可自行修改。其他的单选项可复制制作好的单选框,然后再分别修改它们的Caption属性为“B 5”、“C 11”和“D 18”。 二、制作智能交互型的课件 3.“查看答案”命令按钮 在此插入一个命令按钮(第一个命令按钮),我们可根据单选框的Value属性的值来判断答案,如正确选项(单选框)的Value的值为True,则为该题选择正确,否则为选择错误,另外还可根据选择正误来给出提示信息。 二、制作智能交互型的课件 用MsgBox(),如果选择正确,显示信息“Very Good!请继续!”,选择错误则显示“Sorry,你选错了!正确答案是3,请继续努力。”具体操作步骤:双击单选框进入VBA编辑窗口,在编辑窗口中完成以下操作。 二、制作智能交互型的课件 1)在编辑窗口中找到如下两条语句:Private Sub OptionButton1_Click()和End Sub语句。 然后在上面这两条语句中间插入以下语句: If OptionButton1.Value=True Then ex=MsgBox(“Very Good!请继续努力。”, vbOKOnly) 二、制作智能交互型的课件 方法1的代码编辑窗口 二、制作智能交互型的课件 2)同理,找到如下三组语句: 第一组语句:Private Sub OptionButton2_Click()和End Sub; 第二组语句:Private Sub OptionButton3_Click()和End Sub; 第三组语句:Private Sub OptionButton4_Click()和End Sub。 二、制作智能交互型的课件 在这三组的两条语句中间分别插入语句: If OptionButton2.Value=True Then ex=MsgBox(“正确答案是3,请继续努力。”, vbOKOnly) If OptionButton3.Value=True Then ex=MsgBox(“正确答案是3,请继续努力。”, vbOKOnly) If OptionButton4.Value=True Then ex=MsgBox(“正确答案是3,请继续努力。”, vbOKOnly) 说明:ex为自定义变量 在所有代码的前使用dim ex定义变量ex 二、制作智能交互型的课件 4.“重新选择”命令按钮 在幻灯片适当的地方插入一个命令按钮,修改其Caption属性为“重新选择”,在编辑窗口中的 Private Sub CommandButton2_Click() 和End Sub语句间插入: OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False OptionButton4.Value = False Label2.Caption =“” 二
原创力文档

文档评论(0)