- 1、本文档共54页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
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)