VBA在Powerpoint中的应用
摘要：交互性的课件是核心特性，交互设计是课件设计的关键环节。本文结合教学实例，介绍了如何利用VBA编程语言制作交互式课件，以提高课件的交互性和灵活性，有助于激发学生的学习兴趣及参与程度，达到提高教学质量的目的。同时帮助大家提高Powerpoint课件的制作质量和水平。
关键词：Powerpoint课件；VBA；交互性
一、前言
美国微软公司开发的Office系列软件中的powerpoint以其优良的品质，被大家从分应用于课堂教学中。而其中本身附带VBA技术，可以帮助我们实现更强大的课件制作功能——人机交互，即学习者与计算机之间能够实现信息双向传递，制作出“交互自学型”的智能课件。本文对powerpoint中的VBA技术，通过一些实例来说明VBA程序在powerpoint课件中的制作方法，旨在帮助课件制作者提高powerpoint课件质量和水平。
（一）VBA和VBA交互设计
VBA（visual Basi for Applications）是新一代标准宏语言，是Microsoft Office系列的内置编程语言，是非常流行的应用程序开发语言VB（Visual Basic）的子集。它“寄生于”Office应
关键词：Powerpoint课件；VBA；交互性
一、前言
美国微软公司开发的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交互设计主要由两部分组成：一是可视化对象的创建，即VBA控件的创建；二是为VBA控件设置属性和添加事件远程代码。
（二）VBA在powerpoint中实现交互操作的案例
VBA和VB的区别主要包括以下几个方面：
VB是用于创建标准的应用程序，而VBA是使用已有的应用程序功能更强大或使其中的操作自动化；
1.VB具有自己的开发环境，而VBA必须寄生于已有的应用程序
2.要运行VB开发的程序，用户不必安装VB因为VB开发出的应用程序是可执行文件，而VBA开发程序必须依赖于它的父应用程序。
VBA具有两个特点：1）用VBA可轻松编制宏程序，用户可以通过VBA编制的宏自动完成“宿主”程序可完成的工作。2）与“宿主”程序相比，VBA具有更强的灵活性，可以实现许多“宿主”程序不能实现的功能。
因此，VBA在Powerpoint当中主要有两方面的用途：1）使Powerpoint能实现大量重复操作的自动化，提高工作效率；2）完成菜单操作不能完成的功能，增强幻灯片的交互性
VBA交互设计主要由两部分组成：一是可视化对象的创建，即VBA控件的创建；二是为VBA控件设置属性和添加事件远程代码。
（二）VBA在powerpoint中实现交互操作的案例
交互练习时课件中的重要组成部分，是实现课件教学性的重要手段。利用控件工具箱所提供的各种控件如CheckBox（复选框）、OptionButton（单选框）、TextBox（文本框）、CommandButton（命令按钮），配合编写VBA代码，可以为学习者提供填空题、多选题、单选题、是非判断题等多题型、即时反馈交互练习。
二、VBA在powerpoint中的应用
上面已给出VBA在Powerpoint中的两个主要用途，下面分别举例说明。
（一）VBA实现重复操作自动化的实例
在PowerPoint幻灯片的制作中，常会遇到大量的重复工作。这时就可以用VBA编辑的宏来自动完成这些工作，而且用宏来完成这些工作很多时候的相当简单的。比如要把所制作的每张幻灯片的初始背景统一设置成浅绿，可以只用包含一条程序语句的宏来实现它。程序如下
Sub macrol（）
Activepresetation Slide Master . Background.fill.forecolor.RGB=RGB（108.222
108）‘此段程序的作用是使所有的幻灯片背景颜变成为浅绿
End sub
二、VBA在powerpoint中的应用
上面已给出VBA在Powerpoint中的两个主要用途，下面分别举例说明。
（一）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数据库。在数据库内建“产品信息表”。“产品信息表”中共包含三个字段：“产品名称”字段存储产品名称，“产品介绍”字段存储产品介绍信息、“产品图片”字段存储产品图片文件路径。
前台幻灯片上添加一按钮，单击此按钮可以进入产品信息窗体，产品信息窗体与后台数据库连接，产品信息窗体中显示产品信息的文件筐和浏览查信息的按钮，并加入一图片框显示
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
单击查按钮，实现查功能的程序如下
该幻灯片的关键程序及说明如下。
设置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()basic语言被淘汰了吗
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 =rs.fields(“产品名称”).value
Userform =rs.fields(“产品介绍”).value
Userform image1picturet=loadpicture
Else
Msgbox”不存在这样的产品！”
Set rs =db.openrecordset(“产品”，dbopendynaset)
End if
End sub
单击查看所有产品按钮，实现查后再次浏览全部产品信息功能程序如下
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 =rs.fields(“产品名称”).value
Userform =rs.fields(“产品介绍”).value
Userform image1picturet=loadpicture
Else
Msgbox”不存在这样的产品！”
Set rs =db.openrecordset(“产品”，dbopendynaset)
End if
End sub
单击查看所有产品按钮，实现查后再次浏览全部产品信息功能程序如下
Private sub cmireadall_click()
Set rs=db.openrecordset(“产品”，dbopendynaset)
End sub
单击下一条记录按钮，调用过程xianshi（）实现顺序向后浏览功能
Private sub cminest_click()
Rs.movenext
f=true then
&velase
Msgbox”已经到了最后一个记录了！”
End if
Call xianshi
End sub
此演示幻灯片的特点是1）具有浏览，查所需要信息的功能2）后台数据库可以方便的更新信息。这样就达到了前面的两点稼穑，具备了产品发布会演示幻灯片应具备的功能，而仅用pwerpoint是不能实现这些功能的，此例中的实现技术对于发表演示类幻灯片制作具有
Set rs=db.openrecordset(“产品”，dbopendynaset)
End sub
单击下一条记录按钮，调用过程xianshi（）实现顺序向后浏览功能
Private sub cminest_click()
Rs.movenext
f=true then
&velase
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其他组件中去。
三、结束语
从以上对VBA的介绍及所举得两个实例可以得出以下结论1）用VBA编辑的宏来自动完成大量重复性powerpoint菜单操作是十分便利的2）VBA与powerpoint相结合制作出的幻灯片界面交互性方面具有极大的优势，并且VBA程序可以实现许多用powerpoint无法实现的功能。
Powerpoint在幻灯片制作方面的方便程度是其他软件或编程语言很难达到的，若在加上VBA的协助，它的魅力将是很难以抵挡的。因此可以说VBA是实现powerpoint高级应用不可少的利器。Office各个组件具有许多相同之处，因此文本所举实例及特点课轻松推广到office其他组件中去。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论