导航菜单

在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

下载文本