PPT课件中基于VBA的文本交互的实现～～

《PPT课件中基于VBA的文本交互的实现～～》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《中国教育信息化》发行部：cyl@moe.edu.cn课件制作应用PPT课件中基于VBA的文本交互的实现范利利1，张祖芹2，刘延华1（1.安徽师范大学，安徽芜湖241000；2.盐城师范学院，江苏盐城224000）摘要：文本是多媒体课件的重要组成元素之一，是学生获取知识的主要来源。本文采用VBA与控件相结合的技术，对PPT课件中的文本实现交互进行了设计与操作，使PPT课件中的文本能够克服单一的呈现形式，呈现多样化的表达，更好地适应教与学的需要，为教学课件的开发与完善提供有益的参考。关键词：PPT课件；VBA；

2、控件；文本交互中图分类号：G434文献标识码：A文章编号：1673-8454（2010）16-0067-03一、文本交互的必要性多媒体课件通常由文本、图形、图像、声音、视频、动画等元素组成，但不是每一个课件都需要包含所有的元素，而文本却是每一个课件中都不可缺少的，是课件内容组成的基础，是学生获取知识的主要来源。PPT课件中的文本一般都是输入或粘贴在幻灯片上，播放时以一段段篇幅呈现，除了设置一些自定义动画效果外，表现形式单一，更缺乏交互性，难以达到良好的知识传授效果，学生观看久了也会疲劳厌倦。在PPT课件中适当

3、增加文本的表现形式，实现一定的人机交互，图1文本切换交互实例会起到意想不到的作用。利用PowerPoint自带的VBA和控件，即可实现交互的功能。种不同的实验现象。文本切换实例如图1，具体制作VBA（VisualBasicforApplications）是微软公司流程如下：在其开发的各种应用程序中共享的通用自动化语1.页面控件放置言。控件是一种可视化部件，集合在控件工具箱中，（1）放置切换按钮。选择“控件工具箱”中“切换在PowerPoint中选择“视图/工具栏/控件工具箱”即按钮”控件，在“感觉剥夺实验”的

4、课件页面上，按住可打开。鼠标左键拖出一个切换按钮(ToggleButton1)。本文以《信息与信息技术》课程中“信息”这一（2）放置命令按钮。选择“命令按钮”控件，在“感部分内容的PPT课件为例，具体阐述PPT课件中觉剥夺实验”课件页面的下方，拖出一个命令按钮基于VBA的两种文本交互的相关操作。(CommandButton1)。（3）放置标签。选择“标签”控件，在切换按钮下二、文本切换交互的实现方，拖出第一个标签(Label1)。在命令按钮左边，拖出《信息与信息技术》课程中“信息”这一部分内容，第二个标签(L

5、abel2)。引用“感觉剥夺实验”，得出“信息是人类生存和发展2.控件属性设置的基本条件与基本需求”的结论。PPT课件中的这部（1）设置切换按钮属性。选中切换按钮右击鼠标，分内容，使用文本切换的方式表现实验前和实验后两在弹出的菜单中选择“属性”。在“属性”对话框中，ChinaEducationInfo67应用课件制作《中国教育信息化》编辑部：mis@moe.edu.cnCaption项对应的内容为切换按钮名称，改默认的三、文本下拉交互的实现“ToggleButton1”为“实验结果”。通过Font项设置名称《

6、信息与信息技术》课程中“信息”这一部分内容，的字体、字形和大小。知识点“物质、能量、信息是人类在世界上生存与发展（2）设置命令按钮属性。将Caption项对应的内容的三大要素”是引用“野外生存训练”得出的。在PPT改为“结论”。课件中，应用列表框和组合框控件实现下拉式交互效（3）设置标签属性。分别将两个标签Caption项对果，生动表现“物质、能量、信息”三大要素在生活中应的内容清除。的具体指代物。文本下拉实例如图2，具体制作流程3.代码编辑如下：（1）双击“实验结果”切换按钮，在PrivateSub1.页面

7、控件放置ToggleButton1_Click()与EndSub之间输入代码：（1）放置组合框。选择“控件工具箱”中的“组合PrivateSubToggleButton1_Click()框”控件，在“野外生存训练”的课件页面上，按住鼠标IfToggleButton1.Value=TrueThen左键拖出一个组合框（ComboBox1）。Label1.Caption="实验前，大多数被测者以为能（2）放置列表框。选择“列表框”控件，在组合框利用这个机会好好睡一觉，或者考虑论文课程计划。"右边，拖出一个列表框（L

8、istBox1）。Else（3）放置文本框。选择“文本框”控件，在组合框和Label1.Caption="实验后，被测者报告说，在实验列表框下方，拖出一个文本框（TextBox1）。过程中,对任何事情都不能进行清晰的思考。"（4）放置标签。选择“标签”控件，在文本框下方，EndIf拖出一个标签(Label1)。EndSub（5）放置命令按钮。选择“命令按钮”控件，在页点击“实验结果”切换按钮，标签1