利用VBA技术实现PPT课件智能交互
    1 利用 VBA 技术实现 PPT 课件智能交互    摘 要：    本文以 PPT 课件中常见的具有交互功能代表性的各类选择题、填空题的制作过程为例，详细分析了利用 VBA技术在 PowerPoint 中实现智能交互的步骤、方法与技巧。        关键词：    VBA PPT 课件 智能交互    1.前言    Microsoft Office 套件的 PowerPoint 以其功能强大而又操作简单优良的品质，被众多教师广泛应用于课堂教学的课件制作中。  对于使用者来说，只要略加学习，就可以利用软件自身提供的菜单与工具，制作出美观大方的 PPT 课件。  但是据我调查发现，对于相当部分老师来说，一般只会用其做出单向的课堂演示型课件，或者也有少部分老师能够利用PowerPoint 2003 版之后所提供的触发器功能来实现一些相对简单的交互操作。  殊不知，其实在 PowerPoint 中完全可以使用内嵌的 VBA 技术制作出具有智能交互功能的 PPT 课件，实现学习者与计算机之间进行信息的双向传递，不但能优化教学效果，加强互动，而且使得教学更加活泼生动。        本文以 PPT 课件中常见的具有交互功能代表性的各类选择题、填空题的制作过程为例，详细分析了利用 VBA 技术在PowerPoint 中实现智能交互的步骤、方法与技巧。        2.VBA 技术及在 PowerPoint 中的使用方法  2    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 运行环境的设置  3    为保证添加了 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）选择控件工具箱中的命令按钮，然后在当前页面的合适位置拖动，画出一个命令按钮，在选按钮上右击，在4 弹出的快捷菜单中选择属性选项，修改其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.交互性多选题的制作    如图4所示的一道计算机应用基础的多
选题，要求在PPT课件中实现如下交互功能：  用户分别点击题目的 A、B、C、D选项进行选择，然后点击按钮提交答案时，课件能正确地反馈用户提交的答案是否正确，如果不正确就会顺便提示5 给出正确答案。  （注：  正确答案为 BCD）    具体制作步骤如下：        前面 5 个步骤与制作单选题的操作类似，只不过在第 2步要选择的是控件工具箱中的复选按钮 vba编程技巧，此外相应的Caption属性值也按照上图 4 所示的内容进行设置。        接下来为命令按钮提交答案添加代码：  双击该命令按钮，弹出代码窗口，输入以下代码：        Private Sub CommandButton1_Click（）    If CheckBox1.Value=False And CheckBox2.Value=True And CheckBox3.Value=True And CheckBox4.Value=True Then    MsgBox（恭喜你，回答正确！）    Else    MsgBox（很抱歉，你的回答不正确！正确答案是：  BCD）    End If    End Sub    5.交互性填空题的制作    如图 5 所示的一道计算机应用基础填空题，要求在 PPT课件中实现如下交互功能：  用户在文本框中输入相应的内容作答，然后点击按钮提交答案时，课件能正确地反馈用户提交的答案是否正确，如果不正确就顺便提示给出正确答6 案。  （注：  正确答案为二进制）    题目的制作要点：  填空题中提供给用户作答的地方要用到控件箱中文本框 ，而其中的命令按钮提交答案中的代码应为：        Private Sub CommandButton1_Click（）    If TextBox1.Text=二进制Then    Msg
Box（恭喜你，回答正确！）    Else    MsgBox（很抱歉，你的回答不正确！正确答案是：  二进制）    End If    End Sub    6.结语    VBA技术为PowerPoint用户提供了实现功能拓展的二次开发工具，充分利用 VBA 这一工具，可使幻灯片的交互功能得到增强。  作为经常制作各类 PPT 课件的教育工作者，在掌握 PowerPoint 常规功能的同时，应尽可能熟悉 VBA 技术的应用，最大限度地利用它所具有的强大功能与丰富资源来改变 PPT 课件呆板单一的面孔，增强课件的表现能力和智能交互性，制作出功能更强大的个性化教学课件，激发学生的学习兴趣和参与程度，达到提高教学质量的目的。        参考文献：    7    ［1］江建.应用 PowerPoint 控件让课件无限精彩［J］.信息技术教育，2008，（2）.    ［2］张胜涛.中文版 PowerPoint 2003 幻灯片制作实用教程［M］.北京：  清华大学出版社，2009.    ［3］汪瑾.基于 VBA 的交互式课件设计［J］.办公自动化杂志，2009，（9）.    ［4］范利利，张祖芹，刘延华.PPT 课件中基于 VBA 的文本交互的实现［J］.中国教育信息化（基础教育版），2010，（16）.              本文为全文原貌 未安装 PDF 浏览器用户请先下载安装 原版全文

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。