vba在powerpoint课件中的应用

《vba在powerpoint课件中的应用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、万方数据2006年3月第5卷第1期重庆文理学院学报(自然科学版)JournalofChongqingUniversityofArtsandSciences(NatureSciencesEdition)M,ill"．，2006V01．5No．1VBA在PowerPoint课件中的应李文江(重庆文理学院教务处，重庆永川402168)用[摘要]VBA是为Microsoft应用程序提供的宏程序设计语言．笔者通过3个实例说明将它应用在PowerPoint课件中，可使PowerPoint课件具有交互性、灵活性和趣味性．[

2、关键词]VBA；PowerPoint课件；程序代码[中图分类号]TP317．4[文献标识码]A[文章编号]1671—7538(2006)01—0027—03随着多媒体技术的迅速发展与学校多媒体计算机使用的普及，教师运用多媒体教学越来越普遍．PowerPoint是一种使用广泛的课件制作工具，它具有使用简便、兼容性好的优点，深受广大教师的喜爱．但也有一些教师认为它功能太简单，不能满足多媒体课件的交互要求．实际上，有些教师只用了PowerPoint的一些基本功能，根本没有或很少用到功能强大的“VBA”．教师如果能充

3、分应用VBA这一工具，能使制作的PowerPoint课件更具交互性、灵活性和趣味性．1VBA基本知识1．1VBA简介VBA(VisualBasicforApplications)是由微软开发的新一代标准宏语言，用于定制和扩展Office功能的系统，是功能强大的Office套件的一部分．它提供了面向对象的程序设计方法和相当完整的程序语言，并采用与VisualBasic完全相同的编程环境．1．2进入VBA编程环境(1)打开PowerPoint，建立一个空白幻灯片．(2)选择菜单“视图／32具栏／控件工具箱”，此时

4、在桌面上显示控件工具箱(如图1)．图1把鼠标移动到控件工具箱的任意一个按钮上，稍微停顿，就可以显示出该按钮的名称．常用按钮如下：囔i复选框(ch。。kBox)：可以选择多个选项；强文本框(Te。tBox)：输入文本；，?掣命令按钮(c。。m蛐dButl0。)：用来确定选择或输入，也可设计超级链接；■—．0I黪单选框(OptionButton)：只能选中一个选项；瀵b示签(Label)：用来显示文字信息；零其它控件：单击选择其它控件．(3)单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可插入控件．(

5、4)双击幻灯片中的控件或用菜单命令“工具，宏／Visualbasic编辑器”即可进入VBA编程状态，就可以在“属性”窗口中设置控件的各种属性，在“代码”窗口中对控件编程．2VBA编程应用下面通过3个不同类型的VBA编程实例来实现PowerPoint课件的交互性、灵活性和趣味性．2．1增强课件交互性的实例——拖放式选择题交互性是指人和计算机能“对话”，以便进行人工控制．PowerPoint课件中交互性的引入，改变了课件呆板、单一的面孔．教师在上新课前复习上堂课所学的知识，如出复习题，可以是选择题、填空题、判断题

6、等．下面通过一个“拖放式选择题”实例来看它的实现过程：按住选择的答案，拖放到指定的位置，按“判断”按钮，自动判断正误，如图2．如果正确就发出“正确(right．wav)”的声音，并弹出消息框1(如图3)；如果错误就发出“错误(wrong．wav)”的声音，并弹出消息框2(如图4)．*[收稿日期]2005—09—22[作者简介】李文江(1978一)，男，重庆万州人，主要从事多媒体、计算机网络与数据库的应用研究27万方数据制作过程：在幻灯片中放置”霹j文本框(T。。tBoxl)、苴谬j命令按钮(c。m。。ndBu

7、tt。。1)、j譬标签(hb。11、2)、声音播放(WindowsMediaPlayerl)控件”．TextBoxl的Text属性设置为空；CommandButtonl的Captiort属设置为“判断”；Labell的CaptionI禹性设置为“A：北京”，Label2的Caption属性设置为“B：天津”；WindowsMediaPlayerl的Height和Width属性都设置为1．这些控件的其它属性可以为默认设置．程序代码如下：“A：北京”选项拖动程序代码：PrivateSubLabell—MouseU

8、p(ByValButtonAsInteger，ByValShiftAsInteger，ByValXAsSingle，ByValYAsSingle)DimdownXAsIntegerDimdownyAsIntegerLabell．Left=X—downX+Labell．LeftLabell．Top=Y—downy+1．abell．TopIfLabell．Left>324AndLabell．Left<4