如何用ActiveX控件和VBA制作PowerPoint交互课件

文 周慧英 袁贺丽

如何用ActiveX控件和VBA制作PowerPoint交互课件

文 周慧英 袁贺丽

一、引言

随着现代教育技术在中职学校的推进和发展，多媒体技术在课堂教学中已得到广泛应用，所谓多媒体技术是指利用计算机综合处理多种媒体信息——文本、图形、图像、声音、视频等，使多种信息建立逻辑连接，集成为一个具有交互性的系统，多媒体技术的核心特征为集成性、交互性。通过多种感官刺激，改变了传统教学模式，更利于学生接受所学课程内容。［1］

PowerPoint是Microsoft Office软件包组件之一，是可视化演示文稿制作工具，利用该软件可以实现将多种媒体信息有机地结合在一起，因其操作简单、制作周期短、课堂教学过程中可以实现多显示器分别显示不同页面、方便调整教学内容等优势已经成为教师制作课件的首选软件。［2］但是大多数教师在制作课件时只用到了PowerPoint的基本演示功能，很少用到它的交互功能，如果在PowerPoint中用VBA编程制作课堂练习，更能使课堂教学变得生动活泼，激发学生的学习兴趣。

二、VBA简介

所谓VBA就是MicrosoftVisualBasic的宏语言版本（用于编写Windows应用程序），它是VisualBasicforApplications的英文缩写。将ActiveX控件插入到幻灯片中，然后用VBA编写程序控制这些ActiveX控件，从而达到需要的交互效果。本文将介绍一种利用ActiveX控件和VBA制作交互性课件的一般方法。［3］

三、用VBA制作交互性课件实例介绍

1.单选题的制作步骤

下面以一个金属材料类单选题为例说明交互性课件制作的步骤：

【例】金属材料受外力作用产生变形而不破坏的能力称为_____。

A.弹性 B.塑性

C.韧性 D.强度

该例中选项B为正确答案，制作过程如下：

（1）新建 Microsoft PowerPoint演示文稿（该例中采用Office 2013版本），在新建幻灯片中输入题面和选项文字。

如果菜单项中没有“开发工具”选项，可以通过“文件选项自定义功能区”，在主选项卡中将“开发工具”选项卡打钩，将其添加到主菜单中，这样使用频繁的项目就可以在主菜单中直接调用（界面如图1所示）。采用同样的方法也可以在主菜单中新建或者添加其他常用工具选项。

图1 PowerPoint 2013中的“开发工具”选项卡

（2）用鼠标单击控件中的选项按钮（如图2所示），然后在幻灯片适当位置拖动鼠标左键，画出选项按钮合适的大小（画出之后也可以适当调整）。

图2 选项按钮

（3）设置选项按钮控件属性的方法有两种：①先用鼠标选中选项按钮，然后在控件工具箱中单击属性选项，即可调入属性表。②在选项按钮上单击鼠标右键，调出快捷菜单，选择“属性表”也可实现同样的效果。

在按钮属性中主要设置Caption，Font，Value这3个属性的值（如图3所示）。Caption属性值用以确定选项按钮旁边显示的文字信息，这里设置为“A.”；Font属性值用以确定按钮旁边的文字的字体和大小；Value属性值用以确定选项按钮起始的默认状态，它有2个值，一个是True（选项按钮一开始即为选中状态），另一个是False（选项按钮不处于选中状态），一般在设置该属性时将Value值设置为False（该选项按钮的初始状态为“未选中”）。之后用同样的方法制作“B.”“C.”“D.”三个单选按钮；或者采用复制“A.”按钮，然后修改其属性的方法获得“B.”“C.”“D.”三个单选按钮。接着将这4个选项按钮对齐放置在选择题中相应的4个备选答案文字左边合适的位置。

（3）为了在VBA编程中区分每一个控件按钮，需要先定义4个选项按钮对象的名称。选中文字为“A.”的选项按钮，在“属性”对话框中的“（名称）”属性项后面的文本框中输入But1（如图3所示）。按照同样的方法，定义其他3个选项按钮对象的名称分别为But2，But3，But4。

图3 控件属性表

（4）将控件属性设置完成后，即可编写VBA代码，实现交互过程。步骤为：

①双击幻灯片中命名为“But1”的选项按钮控件，或者单击图4所示的VisualBasic按钮即可进入VBA编程状态。

图4 Visual Basic

Private Sub But1_Click（）（该句含义为：单击But1选项按钮）

lf But1.Value = True Then text=Magbox（"选择错误！请再想想！"，vbOKOnly，"显示结果"）（该句含义为：如果But1选项按钮为选中状态则出现如图5所示的结果，单击“确定”返回幻灯片播放模式）

End Sub

图5

②双击“But2”选项按钮，输入语句如下：

在编程窗口中已出现的“Private Sub But2_ Click（）”和“End Sub”语句之间输入：

lf But2.Value = True Then Text=MsgBox（"选择正确！恭喜你！"， vbOKOnly，"显示结果"）

③But3和But4两个选项按钮参照But1制作。

代码输入完成以后，关闭MicrosoftVisualBasic窗口，返回到幻灯片编辑窗口，播放幻灯片即可出现如图5的画面。

2.多选题的制作步骤

下面以一个金属材料类多选题为例说明交互性课件制作的步骤：

【例】下列关于回火目的正确的是_____。

A.降低内应力 B.使工件获得适当的硬度

C.增大脆性 D.使淬火组织趋于稳定

该例中选项A，B，D为正确答案。

多选题与单选题制作的不同之处在于：控件按钮和VBA代码。

（1）在“控件工具箱”中选择“复选框（CheckBox）”按钮，其创建方法及属性设置与单选按钮基本相同。名称依次命名为：“BOX1，BOX2，BOX3，BOX4”。

（2）在“控件工具箱”中选择“命令按钮”，添加到幻灯片上，命令按钮上注明文字为：“查看结果”。因为是多选题，答案有多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条件，例如A、B、D选项是正确的，则需要输入如下语句：

lf CheckBox1.Value=True And CheckBox2. Value=True And CheckBox4.Value=True Then

给出正确的提示信息同单选题

else

给出错误的提示信息同单选题

end if

3.完善课件功能

（1）在幻灯片适当的地方插入一命令按钮，将其Caption属性修改为“重新选择”。

（2）双击“重新选择”按钮，在编辑窗口中的“PrivateSubCommandButton2_Click（）”和“EndSub”代码之间输入：

Box1.Value = False

Box2.Value = False

Box3.Value = False

Box4.Value = False

（3）课件播放效果如图6所示。

图6 演示结果

四、结束语

至此，VBA交互课件制作完毕，但是，要想在其他电脑上正常播放，还要保存为“启用宏的演示文稿”，或者降低宏安全性。

在PowerPoint制作幻灯片的过程中，充分利用VBA这一工具，提升PPT文件的技术含量，可使幻灯片的交互功能得到增强。使幻灯片更人性化、智能化，在课堂教学更能发挥学生学习的积极性和主动性。

［1］ 张建国.现代教育技术［M］.北京：国防工业出版社，2009.

［2］ 吴华，兰星.Office2010办公软件应用标准教程［M］.北京：清华大学出版社，2012.

［3］ 胡增顺.POWERPOlNT多媒体课件制作实验与实践［M］.北京：清华大学出版社，2013.

［4］ PowerPoint中利用VBA制作智能课件［EB/OL］.http：//wenku.baidu.com/ view/6a65038a680203d8ce2f2480.html.

［5］ 李铮.利用VBA制作智能测验题课件［J］.中国教育技术装备，2007（12）：55-56.

作者信息

周慧英，硕士，高级讲师。焦作市技师学院，454003