在Powerpoint中制作电子记分牌——实例解析VBA在Powerpoint中的应用

湖北省远安县职教中心(444200)石毅牟肖俊

1实例分析——设计竞赛用记分牌

为了激活课堂提高课堂效率，小组竞赛是在课堂上使用比较频繁的一种形式，在竞赛中各小组的分数也就成了学生关注的焦点。教师一般都采用小黑板记分，这样既浪费时间，又会分散学生们的注意力。课堂上教师可以将记分牌制作在Powerpoint课件中合适的位置，将学生的注意力锁定在课件上。

1.1编辑状态分析

为了减轻视觉疲劳，不让学生的眼睛随着记分牌到处跑，教师打算将记分牌固定在每张幻灯片的右侧。这就要在幻灯片母版中进行编辑，因为对母版的编辑和修改将应用到所有幻灯片中去。

执行“视图”→“母版”→“幻灯片母版”，进入“幻灯片母版”的编辑状态，对它的编辑将影响所有的幻灯片。若要让某些幻灯片忽略母版的影响，可以右击这些幻灯片的空白处，在弹出的快捷菜单中选择“背景”，然后再弹出的“背景”对话框底部勾选“忽略母版的背景图形”即可。

1.2界面元素分析

小组竞赛一般要经过多轮多次分数的叠加才能得到最后的结果，这就要求在界面上就要出现代表多轮多次的复选框，在操作中单击复选框将得到相应的分数；同时还要将各小组当前的总分及时反映到界面上，这就要求在界面上出现一个呈现分数的文本框；最后还要在界面上放置一个命令按钮，在每次开始竞赛前将所有数据初始化——清零。

2VBA编程简介

2.1准备控件

工具箱

VBA语言是通过操纵控件来完成交互的，所以在编程前要在幻灯片中准备好相应的控件。

启动Powerpoint后，执行“视图”→“工具栏”→“控件工具箱”，调出控件工具箱，如图1所示。再单击控件工具箱中的一种工具，然后在幻灯片上拖出一个区域确定控件的大小。

2.2进入VBA编辑器

双击绘制的控件即可进入VBA编辑器开始编程。编程完毕后，单击VBA编辑器标题栏上的关闭按钮，即可完成程序的保存，又可以退出VBA编辑器。

2.3VBA编辑器

左侧的面板是“属性”面板，在其中可以对控件的各项属性进行设置，如控件的标题（Caption）、控件的字体（Font）、控件高度（Height）、控件的宽度（Width）等。程序的编辑则在工作区浮动的窗口中完成，一般程序输入在如图2所示的空白处。

3制作过程

假设竞赛分为5轮，每轮得分为5分，以一个小组为例子。

3.1母版编辑

启动Powerpoint后，执行“视图”→“母版”→“幻灯片母版”，进入母版编辑状态。

3.2绘制控件

执行“视图”→“工具栏”→“控件工具箱”，调出控件工具箱。

单击“复选框”控件，按住鼠标左键在幻灯片上拖出一个区域确定复选框控件的大小。按照此方法连续绘制5个复选框控件。

单击“文本框”控件，按住鼠标左键在幻灯片上拖出一个区域确定文本框控件的大小。

单击“命令按钮”控件，按住鼠标左键在幻灯片上拖出一个区域确定按钮控件的大小，如图3所示。

3.3对控件CheckBox1编程

双击复选框控件“CheckBox1”，会发现出入点在代码框中闪烁，直接输入代码。

a=a+5

textbox1. text=a

checkbox1. locked=true

然后拖选左侧“属性”面板“Caption”后的“CheckBox1”，输入“1”，表示第1轮。

注解：“a=a+5”表示每单击一次复选框变量a将增加5；“textbox1. text=a”表示让文本框显示变量a的值；“checkbox1. locked=true”表示单击一次本控件后本控件将锁定不能再操作，“checkbox1”表示与编辑的控件是一致的；修“Caption”的值是将控件显示的标题从“CheckBox1”改成“1”。

(4)按照步骤3的方式依次对CheckBox2、CheckBox3、CheckBox4、CheckBox5编程，程序代码基本一样，只是“checkbox1. locked=true”中数值“1”要依次更改为“2、3、4、5”，而且各控件的Caption值要依次改为2、3、4、5。

(5)双击命令按钮，输入代码。

checkbox1. value=false

checkbox2. value =false

checkbox3. value =false

checkbox4. value =false

checkbox5. value =false

checkbox1. locked=false

checkbox2. locked=false

checkbox3. locked=false

checkbox4. locked=false

checkbox5. locked=false

a=0

textbox1. text=a

然后拖选左侧“属性”面板“Caption”后的“CommandButton1”，输入“初始化”。

注解：“checkboxX. value=false”表示将各复选框的选取都取消；“checkboxX. locked=false”表示各复选框的锁定都取消，使复选框能操作；“textbox1. text=a”表示让文本框中的数值清零。

(6)在代码框的最上面输入代码。

dim a as Integer

注解：这是将变量a设置为全局型的整数变量，变量a的值将会在本文件的所有控件之间进行值的传递。

课件的精髓在交互，VBA以其强大的交互性深受用户的喜爱，而VBA的实质是通过操纵Windows控件及控件属性来达到与用户交互的目的。用户在编程时弄清楚控件及控件包含的基本属性后，就可以完成复杂的交互工作。

收稿日期：2014-06-01