——实例解析VBA在Powerpoint中的应用
◆ 覃思华 石 毅 远安县职教中心 湖北 宜昌 444299
虽然当前使用多媒体辅助教学已成为老师们的一种必备技巧，但一些有经验的老师总觉得使用多媒体会影响教学效果，因为一些多媒体软件制作出来的课件缺乏交互性，不能对学生的反应作出及时的反馈，影响了老师和学生的交流。用Powerpoint制作的课件就存在这样的问题，而实质上Powerpoint支持一种叫作VBA的语言来扩展功能，利用它可以使Powerpoint制作出来的课件具有非常完美的交互性。接下来就通过一个实例来介绍VBA在Powerpoint中的应用。
一、实例分析——竞赛用记分牌设计
为了激活课堂提高课堂效率，小组竞赛是在课堂上使用比较频繁的一种，在竞赛中各小组的分数也就成了同学们关注的焦点。老师们一般都采用小黑板记分，这样既浪费时间，又会分散同学们的注意力。我们可以将记分牌制作在Powerpoint课件的合适的位置，将同学们的注意力锁定在课件上。
1.编辑状态分析。为了减轻视觉疲劳，不让同学们的眼睛随着记分牌到处跑，打算将记分牌固定在每张幻灯片的右侧。这就要在幻灯片母版中进行编辑，因为对母版的编辑和修改将应用到所有幻灯片中去。
执行“视图”→“母版”→“幻灯片母版”，进入“幻灯片母版”的编辑状态，对它的编辑将影响所有的幻灯片。退出母版的编辑状态则只需单击“幻灯片母版视图”工具栏上的“”按钮。若要让某些幻灯片忽略母版的影响，可以右击这些幻灯片的空白处，在弹出的快捷菜单中选择“背景”，然后再弹出的“背景”对话框底部勾选“忽略母版的背景图形”即可。
2.界面元素分析。小组竞赛一般要经过多轮多次分数的叠加才能得到最后的结果，这就要求在界面上就要出现代表多轮的复选框，在操作中单击复选框将得到相应的分数；同时还要将各小组当前的总分及时反映到界面上，这就要求在界面上出现一个呈现分数的文本框；最后还要在界面上放置一个命令按钮，在每次开始竞赛前将所有数据初始化——清零。
二、VBA编程简介
1.准备控件。VBA语言是通过操纵控件来完成交互的，所以在编程前要在幻灯片中准备好相应的控件。
启动Powerpoint后，执行“视图”→“工具栏”→“控件工具箱”，调出控件工具箱，再单击控件工具箱中的一种工具，然后在幻灯片上拖出一个区域确定控件的大小。
2.进入VBA编辑器。双击绘制的控件即可进入VBA编辑器开始编程。编程完毕后，单击VBA编辑器标题栏上的关闭按钮，即可完成程序的保存又可退出VBA编辑器。
3.VBA编辑器。左侧的面板是“属性”面板，在其中可以对控件的各项属性进行设置，如控件的标题——Caption、控件的字体——Font、控件高度—Height、控件的宽度—Width等等；程序的编辑则在工作区浮动的窗口中完成，一般程序输入在如图示两个语句的中间。
三、实例制作过程
假设竞赛分为5轮，每轮得分为5分，一个小组为例子。
1.启动Powerpoint后，执行“视图”→“母版”→“幻灯片母版”，进入母版编辑状态。
2.绘制控件。执行“视图”→“工具栏”→“控件工具箱”，调出控件工具箱；单击“复选框”控件，按住鼠标左键在幻灯片上拖出一个区域确定复选框控件的大小。按照此方法连续绘制五个复选框控件；单击“文本框”控件，按住鼠标左键在幻灯片上拖出一个区域确定文本框控件的大小；单击“命令按钮”控件，按住鼠标左键在幻灯片上拖出一个区域确定按钮控件的大小（如图所示）。
3.对控件CheckBox1编程。
双击复选框控件“CheckBox1”，会发现出入点在代码框中闪烁，直接输入代码。
a=a+5
textbox1.text=a
checkbox1.locked=true
然后拖选左侧“属性”面板“Caption”后的“CheckBox1”，输入“1”，表示第一轮。
4.按照步骤3的方式依次对CheckBox2、CheckBox3、CheckBox4、CheckBox5编程，程序代码基本一样，只是“checkbox1.locked=true”中数值“1”要依次更改为“2、3、4、5”，而且各控件的Caption值要依次改为2、3、4、5。
5.双击命令按钮，输入代码。然后拖选左侧“属性”面板“Caption”后的“CommandButton1”，输入“初始化”。
6.在代码框的最上面输入代码。
课件的精髓在交互，VBA以其强大的交互性深受资深用户的喜爱，而VBA的实质是通过操纵Windows控件及控件属性来达到与用户交互的目的。用户在编程时弄清楚控件及控件包含的基本属性后，就可以完成课件复杂的交互工作。
论文作者:覃思华 石 毅
论文发表刊物:《教育学文摘》2015年5月总第155期供稿
论文发表时间:2015-6-23
标签：控件论文; 幻灯片论文; 记分牌论文; 母版论文; 单击论文; 课件论文; 编辑论文; 《教育学文摘》2015年5月总第155期供稿论文;