利用VBA技术实现PPT课件智能交互.doc

  1. 1、本文档共7页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
利用VBA技术实现PPT课件智能交互

利用VBA技术实现PPT课件智能交互摘 要: 本文以PPT课件中常见的具有交互功能代表性的各类选择题、填空题的制作过程为例,详细分析了利用VBA技术在PowerPoint中实现智能交互的步骤、方法与技巧。 关键词: VBA PPT课件 智能交互 1.前言 Microsoft Office套件的PowerPoint以其功能强大而又操作简单优良的品质,被众多教师广泛应用于课堂教学的课件制作中。对于使用者来说,只要略加学习,就可以利用软件自身提供的菜单与工具,制作出美观大方的PPT课件。但是据我调查发现,对于相当部分老师来说,一般只会用其做出单向的课堂演示型课件,或者也有少部分老师能够利用PowerPoint 2003版之后所提供的触发器功能来实现一些相对简单的交互操作。殊不知,其实在PowerPoint中完全可以使用内嵌的VBA技术制作出具有智能交互功能的PPT 课件,实现学习者与计算机之间进行信息的双向传递,不但能优化教学效果,加强互动,而且使得教学更加活泼生动。 本文以PPT课件中常见的具有交互功能代表性的各类选择题、填空题的制作过程为例,详细分析了利用VBA技术在PowerPoint中实现智能交互的步骤、方法与技巧。 2.VBA技术及在PowerPoint中的使用方法 2.1VBA技术简介 VBA(Visual Basic for Applications)是由微软开发的新一代标准宏语言,用于定制和扩展Office功能的系统,属于Office组件的一部分。它提供了面向对象的程序设计方法和相当完整的程序语言,并采用与Visual Basic完全相同的编程环境。 VBA有3个特点:(1)VBA使得已有的应用程序自动化;(2)VBA必须寄生于已有的应用程序;(3)VBA开发的程序必须依赖于它的父应用程序(如PowerPoint中)。 2.2在PowerPoint中使用VBA (1)打开PowerPoint,新建一个空白的幻灯片。 (2)选择“视图→工具栏→控件工具箱”,显示控件工具箱,如图1所示。控件工具箱中提供了制作PPT课件的各种控件。 (3)用鼠标单击控件工具箱中的相应控件,然后用鼠标移动到幻灯片编辑区域。 (4)按下鼠标的左键,并同时拖动鼠标,这样就在PPT上画出一个控件。 (5)选中控件,然后单击控件工具箱中的属性按钮,现在就可以编辑该控件的属性。 (6)双击控件,添加VBA代码,完成相应功能。 2.3PowerPoint运行环境的设置 为保证添加了VBA代码的PPT课件能够正常工作,需要把PowerPoint运行环境中的宏安全性设为“中”。具体操作步骤:选择“工具→宏→安全性”,打开“安全性”对话框,将安全级设置为“中”,然后重新打开课件,则会出现一个对话框,选择“启用宏”即可。 3.交互性单选题的制作 如图2所示的一道计算机应用基础的单选题,要求在PPT课件中实现如下交互功能:当用户分别点击题目的A、B、C、D选项,课件能给出正确与否的提示,同时当用户点击按钮“显示答案”时,课件也能反馈出正确的答案。(注:正确答案为C项) 下面介绍具体制作步骤: (1)新建一个空白PPT文档,写入题干。 (3)在画出的单选按钮上右击,在弹出的快捷菜单中选择“属性”选项,然后弹出属性窗口(如图3所示)。修改其“Caption”属性值,将其改为选项A的内容:“A.发送数字信号”。 (4)重复以上两个步骤或通过复制粘贴的方法完成剩下3个选项,把相应的“Caption”属性值分别设定为B、C、D选项的内容。 (5)选择控件工具箱中的命令按钮,然后在当前页面的合适位置拖动,画出一个命令按钮,在选按钮上右击,在弹出的快捷菜单中选择“属性”选项,修改其“Caption”属性值为:显示答案。 (6)为各个单选按钮添加代码:双击第一个单选按钮,弹出代码窗口,输入以下代码: Private Sub OptionButton1_Click() MsgBox(”很抱歉!你的回答不正确!”) End Sub 对第二、四个按钮也输入同上的代码,而对正确答案的第三个按钮则输入以下代码: Private Sub OptionButton3_Click() MsgBox(”恭喜你!答对了!”) End Sub (7)为命令按钮“显示答案”添加代码:双击该命令按钮,弹出代码窗口,输入以下代码: Private Sub CommandButton1_Click() MsgBox(”本题正确答案是C!你答对了吗?”) End Sub 4.交互性多选题的制

文档评论(0)

docman126 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档