2024年5月9日发(作者：)

巧用ＶＢＡ编程实现Ｐ　ＰＴ演示文稿　

的智能交互　

郜亚丽　

（济源职业技术学院　济源４５４６５０）　

摘要介绍了在ＰｏｗｅｒＰｏｉｎｔ中如何使用ＶＢＡ，通过实例论述了在ＰｏｗｅｒＰｏｉｎｔ中可以通过ＶＢＡ编程实现幻灯片的智能交互，提高　

了ＰｏｗｅｒＰｏｉｎｔ的技术含量和趣味性。　

关键词ＶＢＡ编程智能交互演示文稿　

中图分类号ＴＰ３１　３　文献标识码Ｂ　文章编号１　００９１　４—５５３６　

Ａｐｐｌｙｉｎｇ　ＶＢＡ　ＰｒＯｇｒａｍｍｉｎｇ　Ｒｅａｌｉｚｉｎｇ　ｔｈｅ　Ｉｎｔｅｌｌｉｇｅｎｃｅ　Ａｌｔｅｒｎａｔｉｏｎ　ｏｆ　ＰＰＴ　

Ｇａｏ　Ｙａｌｉ　

（Ｊｉｙｕａｎ　Ｖｏｃａｔｉｏｎａｌ　ａｎｄ　Ｔｅｃｈｎｉｃｌａ　Ｃｏｌｌｅｇｅ　Ｊｉｙｕａｎ　４５４６５０）　

Ａｂｓｔｒａｃｔ　Ｉｎｔｒｏｄｕｃｅｓ　ｈｏｗ　ｔｏ　ｕｓｅ　ｉｎ　ＰｏｗｅｒＰｏｉｎｔ，ｔｈｒｏｕｇｈ　ｔｈｅ　ｅｘａｍｐｌｅｓ　ｄｉｓｃｕｓｓｅｄ　ＶＢＡ　ｉｎ　ＰｏｗｅｒＰｏｉｎｔ　ｃａｎ　ｂｅ　ｒｅａｌｉｚｅｄ　

ｔｈｒｏｕｇｈ　ＶＢＡ　ｐｒｏｇｒａｍｍｉｎｇ，ｉｍｐｒｏｖｅ　ＰｏｗｅｒＰｏｉｎｔ　ｉｎｔｅｌｌｉｇｅｎｔ　ｔｅｃｈｎｏｌｏｇｙ　ｃｏｎｔｅｎｔ　ａｎｄ　ｉｎｔｅｒｅｓｔｉｎｇ．　

Ｋｅｙｗｏｒｄｓ　ＶＢＡ　ｐｒｏｇｒａｍｍｉｎｇ　Ｉｎｔｅｌｌｉｇｅｎｃｅ　ａｌｔｅｒｎａｔｉｏｎ　ＰｏｗｅｒＰｏｉｎｔ　ＰＰＴ　

Ｍｉｃｒｏｓｏｆｔ　ｏｆｆｉｃｅ套件中的Ｐｏｗｅｒｐｏｉｎｔ软件使用简单、兼容性　

好，可以利用它制作出色彩艳丽、生动活泼的多媒体演示文稿，　

因而，广泛用于制作广告宣传、产品演示、学术交流、演讲、工作　

汇报、辅助教学等。但是，应用过程中发现Ｐｏｗｅｒｐｏｉｎｔ演示文稿　

图１控件工具箱　

在播放过程中，缺乏主动的、智能型的交互。使用ＶＢＡ编程，将　

２、插入控件：　

使Ｐｏｗｅｒｐｏｉｎｔ的演示文稿更具交互性、灵活性和趣味性。受　

（１）用鼠标单击控件工具箱中的相应控件，然后用鼠标移动　

一

、

ＶＢＡ简介　

到幻灯片编辑区域。按下鼠标的左键，并同时拖动鼠标，在ＰＰＴ　

ＶＢＡ（Ｖｉｓｕａｌ　Ｂａｓｉｃ　ｆｏｒ　Ａｐｐｌｉｃａｔｉｏｎｓ）是由微软开发的新一代　

上画出了一个控件。　

标准宏语言，它是基于ＶＢ发展而来的，并采用与ＶＢ完全相同　

（２）在属性窗口中可对控件的有关属性进行设置，如：将命　

的编程环境，所以可以说它是ＶＢ（Ｖｉｓｕａｌ　Ｂａｓｉｃ）语言的一个子　

令按钮的名称改为“清空”等。　

集。ＶＢＡ作为一种新一代的标准宏语言，［１］可以用于Ｏｆｉｆｃｅ的各　

３、主要控件及其属性的设置方法　

种应用程序，比如Ｗｏｒｄ、Ｅｘｃｅｌ以及ＰｏｗｅｒＰｏｉｎｔ。ＶＢＡ有３个特　

（１）复选框：可以选择多个选项，常用来设计多选题；　

点：（１）ＶＢＡ使得已有的应用程序自动化；（２）ＶＢＡ必须寄生于　

ＡｕｔｏＳｉｚｅ：有两个值，Ｔｒｕｅ表示根据字的多少调整该按钮的　

已有的应用程序；（３）ＶＢＡ开发的程序必须依赖于它的父应用　

大小；Ｆａｌｓｅ表示该按钮为固定大小。　

程序（如ＰｏｗｅｒＰｏｉｎｔ中）。　

ＢａｃｋＣｏｌｏｒ：设置该按钮的背景颜色选择。　

二、在Ｐｏｗｅｒｐｏｉｎｔ中使用ＶＢＡ　

Ｃａｐｔｉｏｎ：控件的名称，可以把默认值删除再重新输入新名　

１、进入ＶＢＡ的方法：　

称。　

进入ＰｏｗｅｒＰｏｉｎｔ工作环境，新建一个空白的幻灯片。选择　

Ｆｏｎｔ：设置字体、字号及字形，单击该属性框出现按钮，单击　

“视图一工具栏一控件工具箱”，如图１所示，控件工具箱中提　

该按钮出现字体对话框，再在对话框中设置。　

供了各种制作Ｐ　课件的控件。双击幻灯片中的控件或用菜　

Ｆｏｒｅｃｏｌｏｒ：设置字的颜色，设置方法同ＢａｃｋＣｏｌｏｒ。　

单命令“工具一宏一ｖｉｓｕａ１　ｂａｓｉｃ编辑器”即可进入ＶＢＡ编程　

Ｈｅｉｇｈｔ：复选框的高度，直接输入数字即可。　

状态　

Ｗｉｄｔｈ：复选框的宽度，直接输入数字即可。　

・

４６。　办公自动化杂志　

Ｖａｌｕｅ：复选框的值，Ｔｒｕｅ为选中，Ｆａｌｓｅ则相反，亦可为０或　入代码，如图４所示。　

为一１，０表示未选中，一１表示选中。［２］　

（２）文本框、命令按钮、选项按钮、标签、图像等设置类似　

三、用ＶＢＡ制作交互性演示文稿实例　

下面通过制作一个歌唱比赛即时评分系统说明ＶＢＡ在　

ＰｏｗｅｒＰｏｉｎｔ中如何实现交互。　

１、准备工作　

＃　氟　舳　

Ｅ群》＃描　

ｆｒ　一…　”　ｎ　“｛　

在ＰｏｗｅｒＰｏｉｎｔ编辑窗口中，选择“插入一＞新幻灯片“，建立　

两张幻灯片，删除幻灯片上的文本框。第一张幻灯片放置评委的　

≈《《＋　

ｌ“　ｌ　…　

照片和给选手的得分，第二张幻灯片设置选手的最后得分。　

（１）设计第一张幻灯片：　

①在第一张幻灯片上输入文本“歌唱比赛评分系统”。　

②评委照片的设计：点击“视图一工具栏一控件工具箱”打　

开“控件工具箱”。选择“图像控件”，在页面上拖动６个图像控　

件，调整位置，根据实际需要插入插入６位评委的照片。　

③单击“控件工具箱中”的“文本框”，在幻灯片上绘制６个　

文本框控件，用来表示评委给选手的分数，文本框名称设置为　

Ｔｅｘｔｌ，Ｔｅｘｔ２，……，Ｔｅｘｔ８，　

④再插入两个“命令按钮”进行操作，分别为“清空”和“最终　

得分”按钮，名称设置为ＣｏｍｍａｎｄＢｕｔｔｏｎ１和ＣｏｍｍａｎｄＴｏｔａｌ，“最　

终得分”按钮的名称设置为ＣｏｍｍａｎｄＴｏｔ

一

ａｌ。　

放置好控件之后调整各控件的属性并美化界面，

　

如图２所示。　

图２第一张幻灯片效果　

（２）设计第二张幻灯片：　

输入“最后得分”文本，然后打开“控件工具箱”。在工具箱中　

单击“标签”，拖动放在合适的位置来显示“最后得分”，设置标签　

的名称为ＴｏｍｌＳｃｏｒｅ，背景为黄色，幻灯片效果如图３所示。　

２、使用ＶＢＡ编程实现智能交互　

（１）两张幻灯片设计完成后，回到第一张幻灯片，选择“工　

具一＞宏一＞Ｖｉｓｕａｌ　ｂａｓｉｃ编辑器”，即可进入ＶＢＡ编程状态。输　

图３第二张幻灯片效果　

圈鞠—●—一　

…＝１　一　

ｔ　《｛　…　

ｆ　¨　

…　

４　…一　

ｊ锵¨　々　…。。　

ｌｎ　《　

图４　ＶＢＡ编程环境　

设置全局变量的代码放在程序的最前面：　

Ｃｏｎｓｔ　Ｐａｔｈｓ＝”Ｃ：＼考试评分＼”’指定得分的统计文件路径　

Ｄｉｍ　ｓＨｍ　Ａｓ　Ｓｉｎｇｌｅ　’全局变量总分　

Ｄｉｍ　ＡｖｅｒａｇｅＳｃｏｒｅ　Ａｓ　Ｓｉｎｇｌｅ　’全局变量平均得分　

Ｄｉｍ　ＧｒｏｕｐＮｕｍ　Ａｓ　Ｉｎｔｅｇｅｒ　’全局变量记录组次　

“清空得分”按钮的代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＣｏｍｍａｎｄＢｕｔｔｏｎｌ

Ｃｌｉｃｋ（）　

Ｔｅｘｔ１．Ｔｅｘｔ＝…’　

Ｔｅｘｔ２．Ｔｅｘｔ＝…’　

Ｔｅｘｔ３．Ｔｅｘｔ＝…’　

Ｔｅｘｔ４．Ｔｅｘｔ＝…’　

Ｔｅｘｔ５．Ｔｅｘｔ：’…　

Ｔｅｘｔ６．Ｔｅｘｔ＝…’　

Ｓｌｉｄｅ２．ＴｏｔａｌＳｃｏｒｅ．Ｃａｐｔｉｏｎ＝…’　’清空下一张幻灯片的最　

后总分　

Ｅｎｄ　Ｓｕｂ　

“最终得分”按钮的代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＣｏｍｍａｎｄＴｏｔａｌ

＿

Ｃｌｉｃｋ（）　

ＯｎＥｒｒｏｒＧｏＴｏ　ｅｒ　

Ｄｉｍ　ｓｕｍ　Ａｓ　Ｓｉｎｇｌｅ　

’将６个评委的分数相加得出总分ｓｕｍ　

ｓｕｍ＝ｓｕｍ＋ＣＳｎｇ（Ｔｅｘｔ１．Ｔｅｘｔ）　

ｓｕｍ＝ｓｕｍ＋ＣＳｎｇ（Ｔｅｘｔ２．Ｔｅｘｔ）　

ＳＬＩｍ＝ｓｌｉｍ＋ＣＳｎｇ（Ｔｅｘｔ３．Ｔｅｘｔ）　

ｓｕｍ＝ｓｕｍ＋ＣＳｎｇ（Ｔｅｘｔ４．Ｔｅｘｔ）　

ｓｔｌｍ＝ｓｌｉｍ＋ＣＳｎｇ（Ｔｅｘｔ５．Ｔｅｘｔ）　

ｓｕｍ＝ｓｕｍ＋ＣＳｎｇ（Ｔｅｘｔ６．Ｔｅｘｔ）　

ＡｖｅｒａｇｅＳｃｏｒｅ＝Ｆｏｒｍａｔ（ｓｕｍ／６，”＃．＃＃”）。计算出最后得分　

（平均分），精确到小数点后２位　

Ｓｌｉｄｅ２．ＴｏｔａｌＳｃｏｒｅ．Ｃａｐｔｉｏｎ＝ＡｖｅｒａｇｅＳｃｏｒｅ’第二张幻灯片显　

示最后得分　

Ｉｆ　ＧｒｏｕｐＮｕｍ＞＝１　ＡＮＤ　ＧｒｏｕｐＮｕｍ＜＝５　Ｔｈｅｎ　

’写入最后得分　

Ｏｐｅｎ　Ｐａｔｈｓ＆”ＩｎｐＳｃｏｒｅ．ｔｘｔ”Ｆｏｒ　Ａｐｐｅｎｄ　Ａｓ＃１　

办公自动化杂志　‘４７・　

Ｐｒｉｎｔ群１．ＡｖｅｒａｇｅＳｃｏｒｅ　

Ｃｌｏｓｅ＃１　

此代码在Ｗｉｎｄｏｗｓ　ＸＰ操作系统、Ｍｉｃｒｏｓｏｆｔ　Ｏｆｉｆｃｅ　Ｐｏｗｅｒ－　

Ｐｏｉｎｔ２００３下编写，并顺利运行通过。　

Ｅｎｄ　Ｉｆ　

，　

四、结束语　

在ＰｏｗｅｒＰｏｉｎｔ制作幻灯片过程中，充分利用ＶＢＡ这一工　

具，提升ＰＰＴ文件的技术含量，可使幻灯片的交互功能得到增　

强。使幻灯片更人性化、智能化。　’　

ＧｒｏｕｐＮｕｍ＝ＧｒｏｕｐＮｕｍ＋１　

ｅｒ：　

Ｅｎｄ　Ｓｕｂ　

（２）实验结果　

完成后执行“幻灯片放映一观看放映”命令，观看播放效果。　

参考文献　

此时在第一张幻灯片的文本框中输入评委给出的分数（这里可　

［１］程智．利用ＶＢＡ来提高ＰｏｗｅｒＰｏｉｎｔ制作的课件交互性　

以用十分制或百分制表示），单击“最后得分”按钮后，在幻灯片　ｆＪ１．中国电化教育，２００２，（６）　

上单击进入第二张幻灯片，在第二张幻灯片的标签内自动显示　

［２］程昌品．ＶＢＡ在课件交互设计中的应用　电脑学习，　

选手的最后得分。这样每位选手参赛完后可立即知道自己的分　

２００５，（１）　。　

数。读者可举一反三，利用这个系统制作出各种比赛的评分系　

作者简介　

统，在大屏幕上显示出来，既可以烘托赛场气氛，又提高了观众　郜亚丽（１９７５～），女，河南济源人，济源职业技术学院，讲师，　

的可观赏性。　工程硕士。研究方向：计算机网络与多媒体技术。　

（上接第３６页）　

根据校园网实际需要，比如邮件等服务接受和发送包的路径是　

注：其中１０．０．４．１，１０．０．４．２，１０．０．４．３为服务器的地址。　

通过教育网，所以校园网一般选择的是基于源ＩＰ地址的策略　

（２）定义路由图　

路由。　Ｒｏｕｔｅｒ（ｃｏｎｆｉｇ）＃ｒｏｕｔｅ－ｍａｐ　ｓｅｒｖｅｒ　

静态路由是在路由器中配置固定的路由表。静态路由的优点　

Ｒｏｕｔｅｒ（ｃｏｎｆｉｇ—ｒｏｕｔｅ—ｍａｐ）＃ｍａｔｃｈ　ｉｐ　ａｄｄｒｅｓｓ　１１０（匹配定义　

是简单、高效、可靠。除非人为干预，否则静态路由不会发生变化。　

的访问控制列表）　

在所有的路由中，静态路由优先级最高。这种方式使得用户的上　

Ｒｏｕｔｅｒ（ｃｏｎｆｉｇ—ｒｏｕｔｅ—ｍａｐ）＃ｓｅｔ　ｉｐ　ｎｅｘｔ—ｈｏｐ　１０．０　１．２５４　

网方式无需进行任何改动，可操作性较好。同时，网络管理人员可　

注：设置下一条的地址，满足访问控制列表的数据从　

以根据两个或多个出口的带宽和流量情况，调整路由指向。　１０．０．１．２５４路由出去。　

ＮＡＴ解决ＩＰ地址紧缺的问题，而且能使得内外网络隔离，　

（３）应用路由图　

提供一定的网络安全保障，当私有网主机和公共网主机通信的　

Ｒｏｕｔｅｒ（ｃｏｎｆｉｇ—ｉｆ）＃ｉｐ　ｐｏｌｉｃｙ　ｒｏｕｔｅ－ｍａｐ　ｓｅｒｖｅｒ　

ＩＰ包经过ＮＡＴ网关时，将ＩＰ包中的源ＩＰ或目的ＩＰ在私有ＩＰ　注：在接口中应用策略路由　

和ＮＡＴ的公共ＩＰ之间进行转换。　

四、结束语　

三、校园网多出口具体实现　

校园网边界路由器经过以上策略路由配置后，实现了多出　

某校园网两个出口直接连接边界路由器，边界路由器往下连　

口Ｉｎｔｅｒｎｅｔ，校园网用户可以有较高的速率访问教育网的资源和　

核心交换机。在该路由器上我们的配置步骤如下：（１）缺省路由指　

公众网的资源，公众网的用户也可以快速访问校内的资源，同　

向ＣｈｉｎａＮＥＴ；（２）到教育网的静态路由指向ＣＥＲＮＥＴ；（３）基于源　时，出口的流量被放在ＣｈｉｎａＮｅｔ出口，大大降低了教育网资费，　

地址和源端口号的策略路由指向ＣＥＲＮＥＴ。具体配置如下：　

也在一定程度上实现了负载均衡。　矽　

１、配置缺省路由　

Ｒｏｕｔｅｒ（ｃｏｎ６ｇ）＃ｉｐ　ｒｏｕｔｅ　０．０．０．０　０．０．０．０　１０．０．０．２５４　

注：１０．０．０．２５４是路由器连ＣｈｉｎａＮｅｔ出口的ＩＰ地址　

参考文献　

２、到教育网的静态路由的配置　

【１］姜楠，刘小玉．双出口校园网的设计与实现『Ｊ］．内蒙古民　

Ｒ０ｕｔｅｒ（ｃｏｎ６ｇ）＃ｉｐ　ｒｏｕｔｅ　６１．２８．０．０　２５５．２５５．２４０．０　１０．０．１．２５４　

族大学学报（自然科学版），２００９，（４）．　

Ｒ０ｕｔｅｒ（ｃｏｎ堍）＃ｉｐ　ｒｏｕｔｅ　６１．４８．０．０　２５５．２４８．０．０　１０．０．１．２５４　

『２１刘伟，崔永锋．校园网双出口实施中的问题及解决方案　

Ｒｏｕｔｅｒ（ｃｏｎｆｉｇ）＃ｉｐ　ｒｏｕｔｅ　６１．１２８．０．０　２５５．１９２．０．０　１０．０．１．２５４　

叽计算机时代，２００１，（７）．　

『３１张浩，李奇．校园网多出口访问策略的选择与实现ｌＪＩ．福　

注：其中１０．０．１．２５４是路由器连ＣＥＲＮＥＴ出口的ＩＰ地址，　

建电脑，２００８，（１２）．　

对于所有教育网的国内站点设置静态路由指向出口路由器。（条　

杨鑫．校园网双出口的设计与实现叽科技信息，２０１０，　

目非常多，具体可到ＷＷＷ．ｅｄｕ．ＣＢ下载）　

（１Ｏ）．　

３、基于源地址和源端口号的策略路由配置　

『５１雷明彬．策略路由技术在多出口校园网络中的应用［Ｊ］．硅　

（１）配置服务器的访问控制列表　

谷，２００８，（１４）．　

Ｒｏｕｔｅｒ（ｅｏｎｆｉｇ）＃ａｅｅｅｓｓ—ｌｉｓｔ　１１０　ｐｅｒｍｉｔ　ｉｐ　ｈｏｓｔ　１０．０．４．１　ａｎｙ　作者简介　

Ｒｏｕｔｅｒ（ｃｏｎｆｉｇ）＃ａｃｃｅｓｓ—ｌｉｓｔ　１　１０　ｐｅｒｍｉｔ　ｉｐ　ｈｏｓｔ　１０．０．４．２　ａｎｙ　

夏晶黄冈职业技术学院计算机科学系讲师，网络工程　

Ｒｏｕｔｅｒ（ｃｏｎｆｉｇ）＃ａｃｃｅｓｓ—ｌｉｓｔ　１　１０　ｐｅｒｍｉｔ　ｉｐ　ｈｏｓｔ　１０．０．４．３　ａｎｙ　

师，系统分析师，研究方向：网络管理。　

・

４８‘　办公自动化杂志