资源描述：
《vba在powerpoint课件中的应用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、2006年3月重庆文理学院学报(自然科学版)Mar1,2006第5卷第1期JournalofChongqingUniversityofArtsandSciences(NatureSciencesEdition)Vol15No11VBA在PowerPoint课件中的应用李文江(重庆文理学院教务处,重庆永川402168)[摘要]VBA是为Microsoft应用程序提供的宏程序设计语言.笔者通过3个实例说明将它应用在PowerPoint课件中,可使PowerPoint课件具有交互性、灵活性和趣味性.[关键词
2、]VBA;PowerPoint课件;程序代码[中图分类号]TP31714[文献标识码]A[文章编号]1671-7538(2006)01-0027-03随着多媒体技术的迅速发展与学校多媒体计算机使用的普及,教师运用多媒体教学越来越普遍.PowerPoint是一种使用广泛的课件制作工具,它具有使用简便、兼容性好的优点,深受广大教师的喜爱.但也有一些教师认为它功能太简单,不能满足多媒体课件的交互要求.实际上,有些教师只用了PowerPoint的一些基本功能,根本没有或很少用到功能强大的/VBA0.教师如果能
3、充分应用VBA这一工具,能使制作的PowerPoint课件更具交互性、灵活性和趣味性.1VBA基本知识1.1VBA简介VBA(VisualBasicforApplications)是由微软开发的新一代标准宏语言,用于定制和扩展Office功能的系统,是功能强大的Office套件的一部分.它提供了面向对象的程序设计方法和相当完整的程序语言,并采用与VisualBasic完全相同的编程环境.1.2进入VBA编程环境(1)打开PowerPoint,建立一个空白幻灯片.(2)选择菜单/视图/工具栏/控件工具箱
4、0,此时在桌面上显示控件工具箱(如图1).X[收稿日期]2005-09-22[作者简介]李文江(1978-),男,重庆万州人,主要从事多媒体、计算机网络与数据库的应用研究.27X28BeginX:=284,BeginY:=180,EndX:=284,EndY:=182,,SlideShowWindows(Index:=1).View.DrawLineBeginX:=257,BeginY:=161,EndX:=257,EndY:=160TextBox1的Text属性设置为空;CommandButton1
5、的SlideShowWindows(Index:=1).View.PointerType=Caption属性设置为/随机学号0.这些控件的其它属性可ppSlideShowPointerArrow以为默认设置.SlideShowWindows(Index:=1).View.Exit/随机学号0命令按钮程序代码:EndSubPrivateSubCommandButton1)Click()/鼠标与铅笔转换0命令按钮程序代码:DimAAsIntegerPrivateSubCommandButton1)Clic
6、k()RandomizeIfCommandButton1.Caption=/鼠标变铅笔0ThenA=Rnd*100+1SlideShowWindows(Index:=1).View.PointerType=ppSlideTextBox1.Text=AShowPointerPenEndSubWithSlideShowWindows(Index:=1).View3结语.PointerColor.RGB=RGB(Red:=0,Green:=0,由于VBA是为office设计的,作为office软件之一的Bl
7、ue:=0)PowerPoint,如果在使用PowerPoint制作课件时,能与VBA编.PointerType=ppSlideShowPointerPen程相结合,将更能提高PowerPoint的功能.EndWith文中的声音文件、声音控件和PowerPoint课件应放在CommandButton1.Caption=/铅笔变鼠标0同一文件夹下,才能保证课件在其它计算机上正常使用.Else对以上实例,笔者在MicrosoftPowerPoint2000、MicrosoftSlideShowWindow
8、s(Index:=1).View.PointerType=PowerPoint2002和MicrosoftPowerPoint2003中均调试通过,ppSlideShowPointerArrow运行无误.其中,在MicrosoftPowerPoint2003中要从/工具0CommandButton1.Caption=/鼠标变铅笔0y/宏0y/安全性0内把宏的/安全级0设置为/中0,再打EndIf开文件才能正常运行.EndSub/擦除笔迹0命令按钮程序代码
