|
powerpoint中VBA的应用探讨 关键词：Powerpoint课件；VBA；交互性 摘要：论文结合教学实例，介绍了如何利用VBA编程语言制作交互式课件，以提高课件的交互性和灵活性，有助于激发学生的学习兴趣及参与程度，达到提高教学质量的目的。同时帮助大家提高Powerpoint课件的制作质量和水平。 中图分类号：TP317.4 文献标识码：A 文章编号：1003-2738（2011）09-0000-02 一、前言 美国微软公司开发的Office系列软件中的powerpoint以其优良的品质，被大家从分应用于课堂教学中。而其中本身附带VBA技术，可以帮助我们实现更强大的课件制作功能——人机交互，即学习者与计算机之间能够实现信息双向传递，制作出“交互自学型”的智能课件。本文对powerpoint中的VBA技术，通过一些实例来说明VBA程序在powerpoint课件中的制作方法，旨在帮助课件制作者提高powerpoint课件质量和水平。 （一）VBA和VBA交互设计 VBA（visual Basi for Applications）是新一代标准宏语言，是Microsoft Office系列的内置编程语言，是非常流行的应用程序开发语言VB（Visual Basic）的子集。它“寄生于”Office应用程序，是Office套装软件的一个十分重要的组件。它功能强大，面向对象。 VBA和VB的区别主要包括以下几个方面： VB是用于创建标准的应用程序，而VBA是使用已有的应用程序功能更强大或使其中的操作自动化； 1.VB具有自己的开发环境，而VBA必须寄生于已有的应用程序 2.要运行VB开发的程序，用户不必安装VB因为VB开发出的应用程序是可执行文件，而VBA开发程序必须依赖于它的父应用程序。 VBA具有两个特点：1）用VBA可轻松编制宏程序，用户可以通过VBA编制的宏自动完成“宿主”程序可完成的工作。2）与“宿主”程序相比，VBA具有更强的灵活性，可以实现许多“宿主”程序不能实现的功能。 因此，VBA在Powerpoint当中主要有两方面的用途：1）使Powerpoint能实现大量重复操作的自动化，提高工作效率；2）完成菜单操作不能完成的功能，增强幻灯片的交互性 VBA交互设计主要由两部分组成：一是可视化对象的创建，[本文来自论文之家:www.,转载请保留此标记]即VBA控件的创建；二是为VBA控件设置属性和添加事件远程代码。 （二）VBA在powerpoint中实现交互操作的案例 交互练习时课件中的重要组成部分，是实现课件教学性的重要手段。利用控件工具箱所提供的各种控件如CheckBox（复选框）、OptionButton（单选框）、TextBox（文本框）、CommandButton（命令按钮），配合编写VBA代码，可以为学习者提供填空题、多选题、单选题、是非判断题等多题型、即时反馈交互练习。 二、VBA在powerpoint中的应用 上面已给出VBA在Po（转载自论文之家http://www.，请保留此标记。）werpoint中的两个主要用途，下面分别举例说明。 （一）VBA实现重复操作自动化的实例 在PowerPoint幻灯片的制作中，常会遇到大量的重复工作。这时就可以用VBA编辑的宏来自动完成这些工作，而且用宏来完成这些工作很多时候的相当简单的。比如要把所制作的每张幻灯片的初始背景色统一设置成浅绿色，可以只用包含一条程序语句的宏来实现它。程序如下 Sub macrol（） Activepresetation Slide Master . Background.fill.forecolor.RGB=RGB（108.222，108） ‘此段程序的作用是使所有的幻灯片背景颜色变成为浅绿色 End sub 这是一个相当简单的程序，体现出了VBA在很多情况下完成大量重复工作的优势。 Powerpoint为用户提供了自动录制宏的功能，也可以进入VBA编辑器自主编制宏程序。 （二）VBA增强交互性的实例 在幻灯片的制作中，常需要幻灯片能够具有更强的交互性，实现满足用户需要的多功能。这是需要VBA来完成。比如在一家公司的产品信息发布会上，幻灯片演示中都会介绍产品信息的部分。这部分内容应达到以下两个要求：（1）产品的信息能够根据来宾的需要动态地显示；（2）因为公司产品的变动（比如：新产品的产生，过期产品的淘汰等）比较大，所以就需要幻灯片中的产品信息能及时方便地更新。而这些功能仅靠powerpoint是不可能实现的，这就需要借助VBA来实现。下面就是这样的实例，此例是产品发布会幻灯片演示中产品信息部分的制作过程。 建立后台ACCESS数据库。在数据库内建“产品信息表”。“产品信息表”中共包含三个字段：“产品名称”字段存储产品名称，“产品介绍”字段存储产品介绍信息、“产品图片”字段存储产品图片文件路径。 前台幻灯片上添加一按钮，单击此按钮可以进入产品信息窗体，产品信息窗体与后台数据库连接，产品信息窗体中显示产品信息的文件筐和浏览查找信息的按钮，并加入一图片框显示产品图片。点击放大图片按钮出现产品放大窗体以放大观看产品图片。主控件属性：由于本产品介绍文字比较多，因此产品介绍文本框Multiline属性设置为：True。Scrollbars属性设置为：2，使文本框能多行显示文字。把产品图片框和产品放大图窗体的属性设置为：3以使其中的图片能够完全显示。 该幻灯片的关键程序及说明如下。 设置ws为工作对象，db为数据库对象，rs为记录集对象，i为字符串变量存储图片文件路径。当产品信息窗体初始化时，建立数据库连接程序： Private sub useerform_intialize() Set ws=createworkspace(name:=””,username=”admin”,password=””) Set db=ws.opendatabase(“c:\program files \microsoft office\office10\samplse\chanpin mdb”,options=false readonly=false) Set rs=db.openrecordset(“产品”，dbopendynaset) Image1.picture=loadpicture(“”) End sub 单击查找按钮，实现查找功能的程序如下 Private sub cmifind_click() Dim searchfor as string Searchfor=inputbox(“请输入你想查找的产品名称”。“查找产品”) Set rs =db.openrecordset(“select * from 产品 where 产品名称 like ‘”+searchfor+“”) If rs.Recordcount>0 then I=rs.fields(“产品照片”).value Userform textbox1.text=rs.fields(“产品名称”).value Userform textbox2.text=rs.fields(“产品介绍”).value Userform image1picturet=loadpicture Else Msgbox”不存在这样的产品！” Set rs =db.openrecordset(“产品”，dbopendynaset) End if End sub 单击查看所有产品按钮，实现查找后再次浏览全部产品信息功能程序如下 Private sub c（转载自论文之家http://www.，请保留此标记。）mireadall_click() Set rs=db.openrecordset(“产品”，dbopendynaset) End sub 单击下一条记录按钮，调用过程xianshi（）实现顺序向后浏览功能 Private sub cminest_click() Rs.movenext If rs.eof=true then Rs.movelase Msgbox”已经到了最后一个记录了！” End if Call xianshi End sub 此演示幻灯片的特点是1）具有浏览，查找所需要信息的功能2）后台数据库可以方便的更新信息。这样就达到了前面的两点稼穑，具备了产品发布会演示幻灯片应具备的功能，而仅用pwerpoint是不能实现这些功能的，此例中的实现技术对于发表演示类幻灯片制作具有借鉴意义 三、结束语 从以上对VBA的介绍及所举得两个实例可以得出以下结论1）用VBA编辑的宏来自动完成大量重复性powerpoint菜单操作是十分便利的2）VBA与powerpoint相结合制作出的幻灯片界面交互性方面具有极大的优势，并且VBA程序可以实现许多用powerpoint无法实现的功能。 Powerpoint在幻灯片制作方面的方便程度是其他软件或编程语言很难达到的，若在加上VBA的协助，它的魅力将是很难以抵挡的。因此可以说VBA是实现powerpoint高级应用不可少的利器。Office各个组件具有许多相同之处，因此文本所举实例及特点课轻松推广到office其他组件中去。 |
|
|
