利用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.交互性多选题的制作
　　如图4所示的一道计算机应用基础的多选题，要求在PPT课件中实现如下交互功能：用户分别点击题目的A、B、C、D选项进行选择，然后点击按钮“提交答案”时，课件能正确地反馈用户提交的答案是否正确，如果不正确就会顺便提示给出正确答案。（注：正确答案为BCD）
　　具体制作步骤如下：
　　前面5个步骤与制作单选题的操作类似，只不过在第2步要选择的是控件工具箱中的复选按钮 ，此外相应的“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课件中实现如下交互功能：用户在文本框中输入相应的内容作答，然后点击按钮“提交答案”时，课件能正确地反馈用户提交的答案是否正确，如果不正确就顺便提示给出正确答案。（注：正确答案为“二进制”）
　　题目的制作要点：填空题中提供给用户作答的地方要用到控件箱中文本框 ，而其中的命令按钮“提交答案”中的代码应为：
　　Private Sub CommandButton1_Click（）
　　 If TextBox1.Text="二进制"Then
　　 MsgBox（"恭喜你，回答正确！"）
　　 Else
　　 MsgBox（"很抱歉，你的回答不正确！正确答案是：二进制"）
　　 End If
　　End Sub
　　6.结语
　　VBA技术为PowerPoint用户提供了实现功能拓展的二次开发工具，充分利用VBA这一工具，可使幻灯片的交互功能得到增强。作为经常制作各类PPT课件的教育工作者，在掌握PowerPoint常规功能的同时，应尽可能熟悉VBA技术的应用，最大限度地利用它所具有的强大功能与丰富资源来改变PPT课件呆板单一的面孔，增强课件的表现能力和智能交互性，制作出功能更强大的个性化教学课件，激发学生的学习兴趣和参与程度，达到提高教学质量的目的。
　　
　　参考文献：
　　［1］江建.应用PowerPoint控件让课件无限精彩［J］.信息技术教育，2008，（2）.
　　［2］张胜涛.中文版PowerPoint 2003幻灯片制作实用教程［M］.北京：清华大学出版社，2009.
　　［3］汪瑾.基于VBA的交互式课件设计［J］.办公自动化杂志，2009，（9）.
　　［4］范利利，张祖芹，刘延华.PPT课件中基于VBA的文本交互的实现［J］.中国教育信息化（基础教育版），2010，（16）.