PowerPoint 多媒体交互课件制作(VBA编程初步)!224

PowerPoint 多媒体交互 课件 超市陈列培训课件免费下载搭石ppt课件免费下载公安保密教育课件下载病媒生物防治课件 可下载高中数学必修四课件打包下载 制作(VBA编程初步)!224 PowerPoint 多媒体交互课件制作(VBA编程初步 第一章 PPT课件分析 1.1 CAI课件制作分析 一、CAI课件制作的现状分析 计算机辅助教学CAI从60年代诞生以来，历经了几十年的发展。随着计算机和网络技术的普及越来越受到广大教师的欢迎，越来越多的教师在使用、制作CAI课件，成为教学过程中不可缺少的重要的教学手段，并在影响和改变着传统的教学观念与教学模式。通过运行教学软件来实现教学的过程，称为计算机辅助教学(Computer Assisted Instruction，简称CAI)。其中，所运行的教学软件称为CAI课件(Computer)。不难看出，CAI课件在整个CAI系统中占有重要地位。 多媒体课件对课堂教学的辅助作用逐渐从后台走向了前台，越来越多的教师从多媒体课件辅助课堂教学中获得相应的成就感和荣誉感。它以无可比拟的声光效果和眩人耳目的新技术博得了广大教师的青睐，它上可通天，下可入海，带领学生走进神秘的微观世界，让学生在分子和原子之间徜徉;它也可跨越古今，从容地在人类的历史长河中漫游。不需要你懂多少编程语言，你只要是一个普通的电脑爱好者，你就能制作课件。正因为课件制作是如此的简单，使得多媒体课件在课堂教学中的应用如雨后春笋，只要是公开课、示范课、交流课、比赛课，课件几乎成了看家的法宝，在课堂教学中使用课件进行辅助教学也已经是一种时代的趋势。 传统CAI课件的缺陷 1(缺乏适应能力。当学生使用一个CAI课件进行学习时，通常只能按照既定步骤顺序执行，课件各页面之间的流动是固定的。一旦设计好，就无法改变，且对所有学生都一视同仁。不能根据不同学生的实际情况和学习中的不同阶段进行动态调整，因而也就不能真正做到因材施教。虽然有的课件可预先把学生分成几个层次进行学习或通过菜单让学生自己选择学习内容，但其划分明显不细，且不能根据学生的当前水平和学习中的 变化去指导学生，生成适合于他们的 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 目。缺乏适应能力是当前CAI课件的普遍问题。 2(缺乏交互能力。当前不少CAI课件人机交互能力差，表现在学生使用CAI课件的学习是被动的。学生仅能输入选择答案或是填空内容，而不能对一些具有个性思维的问题进行解答，特别是在课堂教学中，一般只能通过教师控制课件流程的操作，学生简单输入答案的方式进行。人机交互本应是CAI的优势，但目前却显得过于简单。 3(缺乏创造能力。当前， 创造教育已被公认为是培养高素质创新人才的有效途径。CAI作为一种辅助教学手段也应为创造教育服务。而目前CAI课件无论从教学过程还是教学形式来看，都显得单调乏味，缺乏创造性。不外乎知识介绍、操作练习、单元测验、资料查询等形式。从内容上看其实质仍是课本搬家、教室搬家。长此以往，将不利于调动学生学习的积极性，更谈不上培养学生的创造能力了。 4(缺乏纠错能力。由于CAI课件自身对其所示教学内容并不理解，因此判定学生答案的正确与否只能通过课件编制者预先设定的 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 来进行。这就造成了课件本身不能根据学生的回答作出评价，同样，对于出错的原因以及出错后所采取的步骤也无法给出相应的解决 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 。 造成CAI课件上述缺陷的原因从CAI课件的理论基础来看，程序设计思想和行为主义学习理论分另构成其计算机和教育方向上的两大理论支柱。虽然教育理论在不断发展、变化，但迄今为止，以程序教学原理为基础的CAI课件设计思想仍占有统治地位。在此流程中，每一页面都要与屏幕界面对应起来，包括所提问题、预想答案、学生回答后的反馈信息等。脚本全部编写好后，再由算法和具体程序来实现。所以，CAI课件在实际操作中就显得处处缚手缚脚，缺乏适应能力、交互能力、创造能力和纠错能力也就不足为奇了。 二、CAI课件的发展趋势 进入21世纪后,CAI课件有哪些发展趋势呢, (一)从以教师为中心向以学生为中心转变。 CAI自诞生以来，其理论基础有3次大的演变: 60年代初至70年代末，CAI以行为主义学习理论为理论基础，小步骤的分支式程序设计成为CAI课件开发的主要模式。 70年代末至80年代末认知主义学习理论成为CAI的理论基础。此时在课件设计中，人们开始注意学习者的内部心理过程，研究并强调学习者的心理特征和认知规律，人们不再把学习看成是对外部刺激被动地做出适应性反应，而是把学习看成是学习者根据自己的态度、兴趣、需要利用原有的认知结构对当前外部刺激所提供的信息主动做出的、有选择的信息加工过程。 90年代至今，建构主义理论成为CAI的理论基础。建构主义认为:知识不是通过教师传授得到的，而是学习者在一定的情境下借助于他人的帮助，利用必要的学习资料，通过意义建构的方式获得的。建构主义理论强调以学生为中心，学生是信息加工和意义的主动建构者，教师由传统的知识传授者转变为学生意义建构的帮助者、促进者。 传统的CAI课件以教师为中心，强调教师的教而忽视学生的学，课件的设计制作以如何方便教师的教来进行，这样的课件学生参与的机会少，学生大部分时间处于被动接受的状态，学生的主动性、积极性难以发挥，更不利于创造性人才的培养。 以学为中心的课件设计以建构主义理论为理论基础，明确以学生为中心，强调“情境”对意义建构的重要作用，强调“协作学习”对意义建构的关键作用，强调对学习环境的设计，强调利用各种信息资源来支持“学”而非支持“教”，强调学习过程的最终目的是完成意义建构而非教学目标。 (二)从单机课件向网络课件转变 随着英特网的快速发展，“校校通”工程的实施，越来越多的学校建设了自己的校园网，CAI课件也从传统的单机课件发展为网络课件甚至成为网络课程。 传统的单机课件存在以下缺点: 开发费时，一般情况下教师只是为了应付公开课和参加优质课比赛才制作，制作过程中素材要自己找，花费大量的人力制作出来，公开课上完或评奖后很难推广，造成了浪费。 传统课件是教师根据自己的习惯开发的，针对完整的一堂课而开发，不便于修改，而其它教师很难根据自己的喜好使用。 传统课件由教师操作，教师只能针对大多数学生的情况进行展示，连某个学生某个地方想重复看一次也难以办到，无法实现个别化教学。 随着校园网的普及，不少学校建有自己的WEB服务器，利用学校的服务器给每个教研组开辟空间，让每个教研组建立自己的网站，教研组内每个教师把自己的电子教案、课件上传到网站上让全组教师下载，每个教师可以很方便地浏览、下载和使用他人的课件。这样让每个教师的智慧在组内共享，让优秀的课件发挥更大的作用。教师修改后的课件又可以重新上传到网站上，这样经过集体的智慧课件就会更加完善。与此同时，学生也可以在家里、在学校的图书馆里或者电子阅览室里打开电脑，上网自主学习，这样就突破了传统课件的时空限制，有利于调动学生的主动参与，实现网络环境下的资源共享和个别化教学。 以网络为基础的课件有以下特点: 信息资源丰富，因特网已经成为了一个无边无际的信息海洋。 突破了传统的时空限制。 人-机优势互补，突出人机交互，更加注重学生的参与。 (三)从完整的课件向积件转变 传统的CAI课件是针对整堂课设计制作而成，不符合教师的教学个性，因此很难适合其它教师的需要，有时也不需要一个完整的课件。比如:教师在教学过程中只需要给学生展示实验现象，或者只需要给学生展示实物，或者只需要一段动画，或者只需要播放一段音视频资料，完整的课件就显得有些多余。近年来流行的CAI积件受到了越来越多的教师的欢迎。CAI积件提供了教师教学所需要的素材，让教师有选择的余地，充分发挥自己的创造性进行组合，适合教师个性化的教学需要。 把握CAI课件的发展趋势，适应这种发展才能制作出更多、更好、更受欢迎的CAI课件，也才能让以计算机网络技术为核心的现代教育技术在教育教学改革中发挥更大的作用。 三、Powerpoint课件制作分析 Powerpoint---不能称之为真正意义上的课件制作工具,应该说是电子文档,制作电子演示文稿。虽然简单易学,但交互性差.在对多媒体技术要求不断提高的今天,我们发现powerpoint已经远远不能满足我们做课件的需要了.用我们前面对多媒体课件的要求,用PowerPoint制作的课件也不能算是真正意义上的多媒体课件,在历次的教师多媒体课件大赛中,这样的作品也是不被认可的。当然我们不能否认PowerPoint的作用,它应该属于比较适合于做演讲稿的制作演示文稿的软件。 目前在中小学校中使用的Powerpoint多媒体课件中，普遍存在着下面几个问题: 1.盲目使用演示型课件 现在许多中小学校在多媒体课件的使用上比较盲目，一些学校甚至存在着这么一种现象:无论什么课程，只要是公开课，都要求使用多媒体课件。一些教师知道多媒体课件非常有益于教学，但对其认识不深，不清楚如何正确使用，结果不仅没有充分发挥多媒体课件的优势，很好的辅助教学，反而因盲目应用产负面的影响。教师制作简单的演示型PPT课件，把大量文字、图片、视频等信息搬上屏幕，忽略了教学活动中至关重要的交流反馈这一其结果就是学生不再是教学活动的主体,他被动的去接受课件授课内容,被动的看,被动的听,没有主动思考的余地,注意力不能持久的集中,整堂课下来,学生并未很好的吸收,而教师也未能发挥其原有的积极作用，没有交流，教师接受不到学生的反应，无法对教学效果进行诊断和评价，也就不能了解学生的学习情况，更无法由此来合理科学的控制教学进度以很好的配合学生学习，这样课堂教学中不仅未能真正发挥多媒体课什的作用，反而将传统教学中有用而科学的东西摒弃了。 2.缺乏优秀的练习型课件 目前中小学教学中使用的PPT课件多是用于课堂教学的演示型课件，而供学生练习和测试用的课件比较少。练习和测试在教学活动中占有很重要的地位。在教学活动中学生仅产生接受反应是不够的，还必须经由提问或通过解决实际问题，使学生真正理解所学内容，产生构成反应。这要求学生作一些练习，且为了解教学目标的实现程度，还要求对学生作一些测试，以便通过评价及时发现错误并予以纠正。在传统教学中，要将诊断评价的结果及时告诉给学生即及时反馈是很难做到的，而练习、测试形式的多媒体课 件则很容易做到这一点。 现在中小学教师使用的为数不多的练习型课件普遍采用的是固定型课件结构。这种结构的课件中，各教学单元的转移是由教学设计人员精心安排设计的，学生的学习过程又是全部在教学设计下进行的，因而通过学习课件之后，学生能达到预先制定的教学目标;另外，此结构中的分支转移简单、易于实现。因此，制作固定型课件难度不大、制作周期短，大致可以满足中小学对多媒体课件的基本需求，课件制作人员也就偏安于固定型结构了。 然而，固定型课件虽然体现了CAI的自定步调、及时反馈和主动学习等特点，但个别化的特点不突出，其结构变化小，无法激起学生浓厚的学习兴趣，而且在此种结构下屏幕内容固定，为了要达到预定的要求，屏幕数量必定要增加，致使课件的长度也大幅度增加，这样占用的内存就多了。所以固定型课件的质量一般，与因材施教的目标还有很大距离。为此，可以采用生成型课件。 3.课件制作中脚本编写不够重视 在制作多媒体课件时，由于缺乏快捷、迅速的能为广大教师迅速接受的课件开发工具，亲身实践的广大中小学老师自己不能够真正参与课件的设计。许多学校中存在着这样一种错误的观点:课件制作是计算机教师的事，无论什么学科，只要有需要，计算机教师就要制作出相应的课件来。而计算机教师则缺乏相应的学科知识，以至于脚本编写这一环节出现了很大的偏差。 学校应加强对非计算机教师课件制作工具使用能力的培养，同时更应注重任课教师对脚本编写的大力投入。在众多教师使用Powerpoint制作课件时，尽量通过学习VBA的程序编写，通过计算机智能化高级语言，来增强课件制作能力，提高脚本的编写能力， 只有这样，才能制作出高质量、具有强劲生命力的课件来。 多媒体课件在中小学教学中地位越来越重要，广大制作者在制作过程中如能注意以上问题，必将涌现出更多更优秀的多媒体课件，对我国的教育事业起有力的推动作用。 第一章 第二节 好课件的标准是什么, 一般中小学教师，全校教师中除1-3个是电脑教师(其中可能是兼职的，或可能1-2个是专业计算机专业毕业的教师)，98%的教师都不是 计算机专业的教师，很少掌握计算机多媒体技术。这样看来，要教师能制作出专业的多媒体课件是有些过份。 有的老师会问:我又不是专业的计算机老师，为什么要制作出专业的课件, 那么，教师的课件是怎么制作出来的呢, 做一个课件有很多相关因素:技术熟练程度、教学设计内容是否完整、制作思路是否清晰、美工设计方面考虑是否周全。如果胸有成竹，技术、美工经验储备到位，做起来自然轻松惬意，如果一边做一边寻找灵感，自然就会一路坎坎坷坷。所以，在做某个课件前，最好先多收集这个课件相关的内容，教学设计、图、文、声、像素材,包括别人做的课件等等，通过对比、分析、思考、总结，形成一个完整的制作解决方案，这样做起来就比较容易了。这样做，可能有人会说:太辛苦，太麻烦了。 一、好课件的标准是什么, 多媒体课件评价标准，应从以下多方面进行评价。 (一) 科学性 1.描述概念的科学性:课件的取材适宜，内容科学、正确、 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 。 2.问题表述的准确性:课件中所有表述的内容要准确无误。 3.引用资料的正确性:课件中引用的资料正确。 4.认知逻辑的合理性:课件的演示符合现代教育理念。 (二) 教育性 1.直观性:课件的制作直观、形象，利于学生理解知识。 2.趣味性:有利于调动学生学习的积极性和主动性。 3.新颖性:课件的设计新颖，进一步调动学生的学习热情。 4.启发性:课件在课堂教学中具有较大的启发性。 5.针对性:课件的针对性强，内容完整。 6.创新性:能否支持合作学习、自主学习或探究式学习模式。 (三) 技术性 1.多媒体效果:课件的制作和使用上是否恰当运用了多媒体效果。 2.交互性:课件的交互性较高。 3.稳定性:课件在调试、运行过程中不应出现故障。 4.易操作性:操作简便、快捷。 5.可移植性:移植是否方便，能否在不同配置的机器上正常运行。 6.易维护性:课件可以被方便地更新，利于交流、提高。 7.合理性:课件是否恰当的选择了软件的类型。 8.实用性:课件是否适用于教师日常教学 (四) 艺术性 1.画面艺术:画面制作应具有较高艺术性，整体标准相对统一。 2.语言文字:课件所展示的语言文字应规范、简洁、明了。 3.声音效果:声音清晰，无杂音，对课件有充实作用。 如果每一节教学课件都以上面的标准来进行设计，那 么教师需要花更多的时间来做课件设计，通常情况下，在时间上不允许，在技术上，很多教师还不能达到要求。以上评价标准只能说是从整体角度来评价，而在平时授课过程中，主要 是考虑课件的实用性，明确教学目的。制作课件的最终目的是实现教学过程最优化且取得最优化的教学效果。 课件的“教育性”是检验教育效果的主要标准; 课件的“科学性”是“教育性”的基础; 课件的“技术性”是确保课件教学有效开展的重要条件; 课件的“艺术性”服务于“教育性”和“科学性”。 做一个教学课件，少则数小时，多则需要几天， 如何才能做到课件的标准，那要因教师的教学经验、业务水平及制作技术等不同而异。大体上来说，要做出好的课件，需要着重从以下五个方面:“内容要全面、结构模块化、易于扩充与修改、过程交互性、人人都会用”。 1.内容要全面。 有的课件只是为了帮助学生理解和掌握某一个小问题而制作的课件除外，但我认为这只能叫什么积件或素材。如果作为一节课用的课件，我认为内容要全面，复习提问、新知识的讲授、巩固练习、小结等等都要有。网上有的课件过于简单，因此除了作者自已，别人根本用不了。 课件的完整性，照顾学习对象。提倡“以生为本”的今天，教师授课内容，教师制作出来的电子课件，必须满足教师的课内教学及学习课外复习使用。也就是说，教师的课件学生在课外也能学习，利用教师的课件，学生在家里也可以温习，重温上课知识，感受老师的教学成果，进一步激发学生自主学习的兴趣。 课件的完整性，应该包括以下教学内容(教学目标、教学重点与难点、教学内容、课堂作业训练、课外知识拓展、课程资源等)，这样做出来的课件，学生才能够进行自学。但通常我们老师做的课件就只有“教学内容”，在教学内容中插入大量的文字、图片、声音、视频、动画等丰富多彩的教学。这些都是应该做的，但这样的课件还不够完整，让学生自学的话，学生就不知道如何找到学习目标、重点与难点等，因此我们必须“以生为本”，做的课件必须考虑全面，要面向学生。 要记住:我的课件需要学生来学习与评价～ 2.“模块”结构，衔接性要好。 在制作多媒体课件时， 往往遇到需要组织很多教学内容，应该按不同的教学内容“模块”化，同时把不同教学模块之间的层次关系进行友好的衔接 ，课件的“模块”化与街接直接关系到该课件的成功与否。制作时，要特别注意各个教学内容之间的先后关系或并列关系，层次要分明，思路 要清晰。 3.课程内容易于扩充与修改。 课件制作过程中，课程内容一般都是“文字、图像、动画、声音、视频”等素材，这些素材一旦插入课件中，需要考虑到日后方便修改和扩充。例如，就算是同一个学科的教师，他们所面对的学生也是不同的，有的课件内容给这个班上可以，给另一个班不一定可以;有时还要根据自已 的教学经验，加入一些新的东西，因此对别人的课件做一些修改是必要的。而一些不怎么通用的软件制作出来的课件，其它人无法修改。因此，如果课件中的教学内容比较多，我觉得还是用通用的软件做好，如Powerpoint。 4.注重学习过程的交互性。 成功的多媒体课件，一定要确保有极强的交互性，以适应不同学习者的需要。对每一个操作步骤都可以让最终用户自行按提示或解说进行操作，在用户不能正确操作时可以自动进行演示。 作为教学课件，这一点尤为重要。课件既可以适应老师上课的教学思路，也可以适应学生自学的学习思路。 5.要人人都会用。 多媒体课件制作的最终目的要成为“教学资源”。如果别的教师拿到你的课件，看几遍，知道怎样操作，知道这节课怎样讲下去;如果 交给学生使用，学生也要能用这些课件来复习。一个优秀教师做的优秀课件，会让更多的教师和学生受益,达到资源共享的目的。 总结:使用Powerpoint应用程序制作多媒体课件，如何做到上述要求，是我们学习本课程的出发点。一般老师对第1点“内容要全面”就比较容易做到，而对2、3、4、5这几方面来说，就不一定能够完全做到。事实往往如此，制作PPT课件如何才能做到对教学内容的“模块结构”,课程内容一旦制作完毕，如何做到“课程内容容易修改”,制作幻灯片本身就是一页一页按顺序翻页，而且多做对象都是静态的，如何才能做到“交互性”,多数老师制作的幻灯片课件一般都是提供自己上课使用，有哪一位老师上完课后还会考虑到成为学校的“教学资源”，再次交给学生温习使用，如何做到“人人都会用”,等问题，是值得我们思考的问题。如果我们能够做到了这几点，那我们的PPT课件可以说是成功的了，我们的课件并不比专业课件制作工具制作出来的课件差。 ---让我们等待会有这么一天吧，希望我们会成功的～ 第一章 第三节 制作PPT课件的设计思路 我们需要制作什么样的powerpoint课件呢, 我们的老师，都是从事一线教学工作，绝大多数是非计算机专业的教师，对多媒体课件制作工具都不熟悉，有的老师比较有兴趣，自学了一些专业的多媒体课件制作工具，但绝大多数的一线教师都没有更多的时间来研究。一般来说，利用Powerpoint做课件，大家都很熟悉的了。但做出来的课件就好象一盘散沙，没有严格的、科学的 组织，页 面之间的转换关系不明确，导致授课的时候很容易出错。缺少的就是“模块化、交互性”，如果解决了这个问题，那我们的PPT课件并不比专业人员做的差。现在主要从PPT课件的应用模式分析我们需要什么样的PPT课件。 一、PowerPoint课件的应用模式 在制作多媒体课件时，大家都懂得Powerpoint幻灯片的基本操作。但 需要制作怎样的多媒体交互课件才有得于学科教学，那有必要了解信息技术在课程整合中的应用模式。 “信息技术与课程整合”的定义，是指在学科课程的教育教学设计与实施中，利用各种多媒体的信息资源及共享技术优势，引进先进的教育教学思想、观念、方法及与之相应的教学模式，解决传统教育教学手段难于或无法解决的问题，以收到更好的教育教学效果，培养学生的认知能力和创新能力。 在信息技术与课程整合过程中，采用的形式多种多样，主要有以下几种模式: 1. 多媒体课件展示:即教师利用信息技术进行电子备课、演示教学内容; 2. 网络自主学习或探究式学习:指利用信息技术给学生提供自主学习和探究性学习的资源环境; 3. 互动协作整合模式:利用信息技术进行师生之间的交流、个别辅导和答疑、同学之间的交流和协作学习; 4. 利用信息技术进行教学测试和教学评估; 5. 利用信息技术对教学内容、体系结构、教材进行改革的尝试，以适应整合的需要。 在以上几种模式中，第一种模式，教师较多地采用了PowerPoint来实现辅助教学。后几种模式用PowerPoint软件来实现得比较少，这是由于PowerPoint本身的功能和教师 及学生对其功能的了解程度共同决定的，但不是说不可能实现后面的功能，只要通过不断探索与学习，使用PowerPoint软件也能做出符合以上各种应用模式的课件来。 第一章 第四节 PPT的基本交互技术 利用Powerpoint应用程序制作课件已经不是什么新鲜事物，在广大教师队伍中应该来说100%的教师都用过，甚至经常制作课件用来上课，对文字、图片、视频等媒体的插入、编排，以及幻灯片的基本操作一般都熟悉。因此，从本节起，不谈及基本的操作步骤，现主要从如何能够体现课件的“交互性”入手，谈谈与课件“交互性”有关的一些操作(以PowerPoint 2003版本为例)。 一、PowerPoint 2003应用程序体现“交互性”功能简介 PowerPoint是Office办公套件中的演示文稿程序。其基本功能可以归纳为: (1)它可以看作是一个媒体集成平台，能够集成文本、图形、图片、表格、声音、视频、动画等多种媒体元素，并有多种演播方式; (2)它提供翻页动画和对象动画，使得页面和其中的元素能够“动”起来，产生良好的视觉效果; (3)它提供现成的设计模板，几分钟就能让你创建一个清楚简洁美观的演示文稿。 如何体现出具有交互性能的课件，下面主要对母版、触发器、动作路径的运用作一个简要的说明,对制作交互式课件很有作用 。 1. 幻灯片母版 在同一演示文稿中我们可以应用多个不同的设计模板，使我们的演示文稿界面风格统一、美观又有所变化。 而现在所说的“幻灯片母版”， 与设计模板有所不同，如果想在整个课件每一页都统一显示某个“按钮”或“图片”等信息，则需要在“幻灯片母版”上进行设置。PowerPoint 2003版进入 幻灯片母版后，可以对母版进行编辑。幻灯片母版通常 设计一些对整个课件中每一个幻灯片都需要的文字信息、命令按钮、幻灯片背景图片、背景颜色等。 2. 触发器的设置 触发器同样是2003及以上版本的一个新增功能。它存在于对象自定义动画的“计时”选项中，在放映视图中，只有当鼠标单击触发对象时，才开始播放该对象。在播放幻灯片时，通过“点击鼠标”来呈现对象的方法不能很好地控制“对象”出现的顺序，所以我们可以用“触发器”这个功能开发某个对象的呈现过程，比通常通过“点击鼠标”来呈现对象的方法好。利用“触发器”可以制作交互性强的幻灯片，如制作:选择题、判断题，弹出式菜单等。 3. 路径动画 对象动画除了分为进入、强调、退出等三种传统自定义动画方式外，在PowerPoint2003版中还新增了“路径动画”。动作路径是一种不可见的轨迹，我们可以将幻灯片上的图片、文本行或形状等项目放在动作路径上，使它们沿着动作路径运动。例如，我们可以使用系统提供的各种预设路径(如弹簧形、心跳形)，或我们自己手绘路径，将文本或图形对象从幻灯片上的一个位置移动到另一个位置;我们还可以对路径进行编辑和修改，以符合我们的需要。 第一章 第四节 PPT的基本交互技术 利用Powerpoint应用程序制作课件已经不是什么新鲜事物，在广大教师队伍中应该来说100%的教师都用过，甚至经常制作课件用来上课，对文字、图片、视频等媒体的插入、编排，以及幻灯片的基本操作一般都熟悉。因此，从本节起，不谈及基本的操作步骤，现主要从如何能够体现课件的“交互性”入手，谈谈与课件“交互性”有关的一些操作(以PowerPoint 2003版本为例)。 一、PowerPoint 2003应用程序体现“交互性”功能简介 PowerPoint是Office办公套件中的演示文稿程序。其基本功能可以归纳为: (1)它可以看作是一个媒体集成平台，能够集成文本、图形、图片、表格、声音、视频、动画等多种媒体元素，并有多种演播方式; (2)它提供翻页动画和对象动画，使得页面和其中的元素能够“动”起来，产生良好的视觉效果; (3)它提供现成的设计模板，几分钟就能让你创建一个清楚简洁美观的演示文稿。 如何体现出具有交互性能的课件，下面主要对母版、触发器、动作路径的运用作一个简要的说明,对制作交互式课件很有作用 。 1. 幻灯片母版 在同一演示文稿中我们可以应用多个不同的设计模板，使我们的演示文稿界面风格统一、美观又有所变化。 而现在所说的“幻灯片母版”， 与设计模板有所不同，如果想在整个课件每一页都统一显示某个“按钮”或“图片”等信息，则需要在“幻灯片母版”上进行设置。PowerPoint 2003版进入 幻灯片母版后，可以对母版进行编辑。幻灯片母版通常 设计一些对整个课件中每一个幻灯片都需要的文字信息、命令按钮、幻灯片背景图片、背景颜色等。 2. 触发器的设置 触发器同样是2003及以上版本的一个新增功能。它存在于对象自定义动画的“计时”选项中，在放映视图中，只有当鼠标单击触发对象时，才开始播放该对象。在播放幻灯片时，通过“点击鼠标”来呈现对象的方法不能很好地控制“对象”出现的顺序，所以我们可以用“触发器”这个功能开发某个对象的呈现过程，比通常通过“点击鼠标”来呈现对象的方法好。利用“触发器”可以制作交互性强的幻灯片，如制作:选择题、判断题，弹出式菜单等。 3. 路径动画 对象动画除了分为进入、强调、退出等三种传统自定义动画方式外，在PowerPoint2003版中还新增了“路径动画”。动作路径是一种不可见的轨迹，我们可以将幻灯片上的图片、文本行或形状等项目放在动作路径上，使它们沿着动作路径运动。例如，我们可以使用系统提供的各种预设路径(如弹簧形、心跳形)，或我们自己手绘路径，将文本 或图形对象从幻灯片上的一个位置移动到另一个位置;我们还可以对路径进行编辑和修改，以符合我们的需要。 第二章 认识控件对象及编程环境 第二章 第一节 VBA基础知识 一、什么是VBA, 直到上世纪90年代早期，使应用程序自动化还是充满挑战性的领域。对每个需要自动化的应用程序，人们不得不学习一种不同的自动化语言。例如:可以用EXCEL的宏语言来使EXCEL自动化，使用WORD BASIC使WORD自动化，等等。微软决定让它开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(V BA)，可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集。实际上VBA是"寄生于"VB应用程序的版本，VBA和VB的区别包括如下几个方面: 1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化。 2. VB具有自己的开发环境，而VBA必须寄生于已有的应用程序。 3. 要运行VB开发的应用程序，用户不必安装VB，因为VB开发出的应用程序是可执行文件(*.EXE)，而VBA开发的程序必须依赖于它的“父”应用程序。 尽管存在这些不同,VBA和VB在结构上仍然十分相似。事实上，如果你已经了解了VB，会发现学习VBA非常快。相应的，学完VBA会给学习VB打下坚实的基础。 VBA究竟是什么?更确切地讲,VBA是微软在其开发的应用程序中共享的通用自动化语言。它既然是一种自动化语言,它可以使常用的 应用实现自动化,可以创建自定义的解决方案。 VBA是Visual Basic for Application的简写，它以VB语言为基础，经过修改并运行 在Microsoft Office的应用程序，它是不能像VB一样能生成可执行程序的。 VBA是Microsoft Office系列软件的内置编程语言，是应用程序开发语言VB(Visual Basic)的子集。它功能强大，面向对象，可极大地增加Office系列软件的交互性。 第二章 第二节 认识控件对象 我们经常看到高手做的多媒体课件中都有许多的按钮、文本框、选项框等之类的工具，使用这些工具会令课件更具有可操作性、交互性等特点。在Powerpoint做课件时，同样提供了一组这样的工具，那叫ActiveX控件。所谓ActiveX控件就是一种图形对象，可以使用它在Powerpoint演示文稿中控制一组预定义的事件(或执行一段程序代码)。在进行学习VBA编程之前，必须理解这些控件的作用及使用方法。 一、powerpoint控件 显示控件工具箱:在Powerpoint中选择菜单“视图-工具栏-控件工具箱”，则“控件工具箱”就会出现在powerpoint工作区内。 如下图: 在制作课件过程中，我们会经常用到的有下面几种控件: 标签(Label):用于表现静态文字信息，如显示选择题、判断题的题目等; 复选框(CheckBox):是一个选择控件，可用于多项选择题的制作; 文本框(TextBox):可以输入文本，用来制作填空题; 命令按钮(CommandButton):可用于制作幻灯片上的按钮，还可通过按钮来改变幻灯片的播放顺序,设计超级链接; 选项按钮(OptionButton):通常一组使用，只能选中其中一个，用来制作单项选择题或判断题。 这是控件的属性，当设置完一个控件后，点击该按钮，就显示该控件的属性窗口。 查看代码，当鼠标选中某一个控件时再点击该按钮，即可查看该控件的代码窗口，或在代 码窗口中输入一段程序代码。 还有其它控件，我们在以后学习到需要时再一一讲解吧。 列表框(ListBox) 组合框(ComboBox) 开关按钮(ToggleButton) 数字调节(SpinButton) 滚动条(ScrollBar) 图像(Image) 除了上面几个常用控件外，Windows系统还有许多控件没有列出，在“控件工具箱”最右边那个按钮叫“其它控件”。点击这个按钮，系统就会出现下拉列表，弹出更多的控件让你选择。这些控件很多都没有用到，暂时不谈了。 控件是如何为我们服务的呢, 上一节介绍了控件的基本属性，当设置了控件的属性，该控件本身就确定了个性与特点，但如果不给它做任何东西，这个控件就好象形同摆设，例如，在幻灯片上设置一个“命令按钮”，不管你设置了它的颜色、字体、大小等属性，在幻灯片播放时任你如何用鼠标点击它，它都是没有任何动作，不给你干活。要想让控件我们干活，那就得给它干活的东西----那就是给控件设置一段程序代码。你给它编写什么样的代码，它就给你干什么样的活。那么，那些代码要放在哪里呢, 一、控件的事件与方法 1.事件 提示:在还没有学习下面内容之前，请先点击右面的视频录像，看一看什么是事件。 提示:在还没有学习下面内容之前，请先点击右面的视频录像，看一看什么是事件。 在上面这个录像中，播放幻灯片时，当点击了“命令按钮”，屏幕就会执行这个按钮的Click事件，并显示一个对话框，如下图: 为什么点击这个“命令按钮”就会显示这个对话框呢,因为我在Click事件代码中输入了一行语句，如下(黑色的部分是输入的内容)，这个Msgbox语句就是产生一个对话框的效果，而这个语句要能够显示在屏幕上，必须把这个语句代码写入Click事件: Private Sub CommandButton1_Click() MsgBox "你点击了命令按钮，执行了CLICK事件，谢谢你啊～" End Sub 什么是“事件”,一个事件就是用户在控件对象上所做的一个动作。当系统响应用户的某些动作时，会自动触发事件代码。例如，用户在控件对象上做出单击动作时，系统自 动执行为Click事件编写的程序代码。 当在幻灯片中设置了一个控件，如“命令按钮”，再用鼠标双击该控件，就会自动进入到VBA代码编辑器，控件默认的事件一般都为控件的Click()事件 ，Click(点击的意思)，我们可以通过代码窗口上面的两个下拉列表选择要编程的对象和该对象的响应事件。如下图: 只有通过输入Click事件的代码程序，这些控件才能发挥其强大功能,如果没有给这些控件输入Click事件代码，这个控件只是一个摆设，没有什么作用了。 控件常用的事件 2.方法 提示:在还没有学习下面内容之前，请先点击右面的视频录像，看一看什么是方法。 在上面这个录像中，播放幻灯片时，当点击了“显示窗体”按钮，屏幕就会出现一个窗体。也就是点击按钮时执行这个按钮的Click事件，在这个事件代码中输入了一句代码(黑色字体是输入代码): Private Sub CommandButton2_Click() UserForm1.Show End Sub 什么是方法,方法，就是控件对象进行的操作。例如:某对象的显示(Show)方法、隐藏(Hide)方法、清除内容(Clear)方法 、复制(Copy)方法，等。上面的例子就是把用户窗体(Userform1)执行“显示(Show)”操作。 “方法”与“事件”有相似之处，都是为了完成某个任务，但同一个事件可完成不同任务，取决于您所编的代码是怎样的，而方法则是固定的，任何时候调用都是完成同一个任务，所以其中的代码也不需要我们编了，系统已为我们编好(我们也看不见)，只需在必要的时候调用即可。 方法的调用:控件名称.方法 在方法调用格式中，“控件名称”与“方法”之间必须使用“.”隔开。如:UserForm1.Show 在VBA编程中，控件的方法很少，应用时也用得很少 ，一般在用户窗体的应用中会出现调用窗体的方法比较多。以后在例子中应用到时再分析。 下面通过实例说明常用控件事件的使用。 第二章 第四节 PPT应用程序对象及其应用 一、Powerpoint应用程序对象介绍 在录制宏过程中，或者以后的VBA编程中，经常会用到Powerpoint应用程序的对象。这些对象是Office在 应用程序中提供给用户访问或进行二次开发使用。哪些对象是什么,又有什么用呢,下面列出一些常用的应用程序对象。其中DocumentWindow对象、 SlideShowWindow对象、Slide对象 、Shape对象在课件制作过程中会经常用到。 1.Application对象 该对象代表PowerPoint应用程序，通过该对象可访问PowerPoint中的其他所有对象。 (1)Active属性:返回指定窗格是否被激活。 (2)ActivePresentation属性:返回Presentation对象，代表活动窗口中打开的演示文稿。 (3)ActiveWindow属性:返回DocumentWindow对象，代表当前文档窗口。 (4)Presentations属性:返回Presentations集合，代表所有打开的演示文稿。 (5)SlideShowWindows属性:返回 SlideShowWindows集合，代表所有打开的幻灯片放映窗口。 (6)Quit方法:用于退出PowerPoint程序。 2.DocumentWindow对象 该对象代表文档窗口。使用“Windows(index) ”语法可返回DocumentWindow对象。 (1)ActivePane属性:返回Pane对象，代表文档窗口中的活动窗格。 (2)Panes属性:返回Panes集合，代表文档窗口中的所有窗格。 (3)ViewType属性:返回指定的文档窗口内的视图类型。 3.Presentation对象 该对象代表演示文稿，通过“Presentations(index)”语法可返回Presentation对象。 (1)BuiltInDocumentProperties属性:返回DocumentProperties集合，代表演示文稿的所有文档属性。 (2)ColorSchemes属性:返回ColorSchemes 集合，代表演示文稿的配色方案。 (3)PageSetup属性:返回PageSetup对象，用于控制演示文稿的幻灯片页面设置属性。 (4)SlideMaster属性:返回幻灯片母版对象。 (5)SlideShowSettings属性:返回SlideShowSettings对象，代表演示文稿的幻灯片放映设置。 (6)SlideShowWindow属性:返回幻灯片放映窗口对象。 (7)AddTitleMaster方法:为演示文稿添加标题母版。 (8)ApplyTemplate方法:对演示文稿应用设计模板。 4.SlideShowWindow对象 该对象代表幻灯片放映窗口。 IsFullScreen属性:用于设置是否全屏显示幻灯片放映窗口。 5.Master对象 该对象代表幻灯片母版、标题母版、讲义母版或备注母版。 TextStyles属性:为幻灯片母版返回TextStyles 集合，代表标题文本、正文文本和默认文本。 6.Slide对象 该对象代表幻灯片。 (1)SlideID属性:返回幻灯片的唯一标识符。 (2)SlideIndex属性:返回幻灯片在Slides集合中的索引号。 7.SlideShowView对象 该对象代表幻灯片放映窗口中的视图。 (1)AcceleratorsEnabled属性:用于设置是否允许在幻灯片放映时使用快捷键。 (2)CurrentShowPosition属性:返回当前幻灯片在放映中的位置。 (3)DrawLine方法:在指定幻灯片放映视图中绘制直线。 (4)EraseDrawing方法:用于清除通过DrawLine方法或绘图笔工具在放映中绘制的直线。 (5)GotoSlide方法:用于切换指定幻灯片。 8.Shape 对象 该对象代表绘图层中的对象，例如自选图形、任意多边形、OLE 对象或图片。 注意:共有三个代表形状的对象:Shapes 集合，代表文档中的所有形状;ShapeRange 集合，代表文档中指定的部分形状(例如，ShapeRange 对象可以代表文档中的第一个和第四个形状，或代表文档中所有选定的形状);Shape 对象，代表文档中的单个形状。如果要同时使用多个形状或集合中的形状，请使用 ShapeRange 集合。 以上Powerpoint应用程序对象 ，如果不需要进行深入的二次开发，大多数对象很少用到，在本课程中，比较常用的对象只有DocumentWindow对象、SlideShowWindow对象、Slide对象 、Shape 对象。在后面的VBA编程中，我们在应用的时候将会介绍，一般都是写入编程代码中 。 第二章 第五节 VBA编辑器的使用与操作 在powerpoint界面中进行VBA编程有两种方式:录制宏和在Visual Basic编辑器中直接编程。录制宏是将一系列操作过程录下来并由系统自动转换为VBA语句，并保存为一个宏文件。如果操作者需要再次执行与录制的宏完全相同的一系列操作，只需运行刚刚录制完成的宏即可，大大地缩短了操作时间，并可以实现日常工作的自动化。如果要在powerpoint中制作出具有较好交互功能的课件，必须采用第二种方式，即直接在Visual Basic编辑器中进行编程。 一、启动VBA编辑器 1.定义:运算符是代表VB某种运算功能的符号。 1)赋值运算符 = 2)数学运算符 &、+ (字符连接符)、+(加)、-(减)、Mod(取余)、\(整除)、*(乘)、/(除)、-(负号)、^(指数) 3)逻辑运算符Not(非)、And(与)、Or(或)、Xor(异或)、Eqv(相等)、Imp(隐含) 4)关系运算符 = (相同)、<>(不等)、>(大于)、<(小于)、>=(不小于)、<=(不大于)、Like、Is 5)位运算符 Not(逻辑非)、And(逻辑与)、Or(逻辑或)、Xor(逻辑异或)、Eqv(逻辑等)、Imp(隐含) 三、数据类型 VBA共有12种数据类型，具体见下表，此外用户还可以根据以下类型用Type自定义数据类型。 数据类型 类型标识符 字节 字符串型 String $ 字符长度(0-65400) 字节型 Byte 无 1 布尔型 Boolean 无 2 整数型 Integer % 2 长整数型 Long & 4 单精度型 Single ! 4 双精度型 Double # 8 日期型 Date 无 8 公元100/1/1-9999/12/31 货币型 Currency @ 8 小数点型 Decimal 无 14 变体型 Variant 无 以上任意类型，可变 对象型 Object 无 4 在通常情况下，不是对数学运算很严格，在制作课件过程中只用到:字符型、整数型、小数点型。其它数据类型很少用到，除非制作数学课件例外。 第三章 第二节 VBA常用语句 要想制作的课件具有智能化、交互性强的特点，必须为课件编写一些有用的程序代码，例如，让学生做练习题、判断题等，学生做完练习必须让老师去判断是否对或错。那么在做课件时，如果能够在课件中加入一些自动分析的程序代码，帮助我们处理一些事情那不是更好吗,那我们的课件更让学生喜欢。 任何程序都是由4种结构的语句组成，VBA也不例外。这4种结构分别为:顺序结构、循环结构、分支结构和模块结构。下面我们主要介绍前面3种。 一、顺序结构 顺序结构的程序就是严格按程序编制的顺序执行的。即是从上而下一行一行执行。 (以下例子参见实例"3_2常用程序语句的应用.rar") 例1:显示顺序结构的执行 在幻灯片设置一个命令按钮(“顺序结构”)，双击命令按钮，输入以下代码: Private Sub CommandButton1_Click() Dim a, b, c As Integer '设置三个变量a,b,c a = 5 '给a赋值 b = 4 '给b赋值 c = 2 * a + 3 * b '定义C的表达式 MsgBox "计算C的值是:" & c '显示信息交互框窗口，并显示C的值 End Sub 顺序很简单，只要从上而下，一句一句编写，每个语句符合书写规则，语句都是根据程序设计目的而写的，这与个人的思维有关，你想出什么样的执行顺序，就会写出什么样的语句来，需要个人经验。程序一般也可以分为几部分: 第一部分:变量定义、变量赋初始值 第二部分:程序主要语句段 第三部分:程序结束部分，输出语句 二、 分支结构(条件语句) 在编写程序时，有时可能将对不同的条件进行判断，根据条件判断的结束来执行相 应的程序。 1.语句格式一:(单条件判断) If 条件1 Then 表达式1 ?这种格式只有一行，符合 条件1 则执行 表达式1 否则执行这个语句下面一行的 其它程序。 例1:if x<10 then MsgBox "X的值小于10" 2.语句格式二:(双条件判断) If 条件1 Then 表达式1 Else 表达式2 Eend if ?如果 条件1成立 则执行 表达式1 否则 执行 表达式2 例2: If X < = 10 Then ?条件判断开始，如果X<10 则 MsgBox "X的值在10范围" '输出对话框， Else '其它条件(即X>=10) MsgBox "X的值超出10的范围" ?输出对话框， End If ?条件判断结束 例3: If A>B And CB And C= 90 Then '以下是判断语句，如果score >= 90 MsgBox ("该生成绩评为:优秀") '则显示“优秀”对话框 ElseIf score >= 80 Then '如果score >= 80 MsgBox ("该生成绩评为:良好") '则显示“良好”对话框 ElseIf score >= 60 Then '如果score >= 60 MsgBox ("该生成绩评为:及格") '则显示“及格”对话框 Else '其它条件 MsgBox ("该生成绩评为:不及格") '则显示“不及格”对话框 End If '判断结束 End Sub 4. Select Case ...End Select 语句 格式: Select Case 变量 Case 值1 语句段1 Case 值2 语句段2 . . . Case Else 语句段n End Select 这个结构语句，是对“变量”分别判断其值，当为“值1”时，即执行“语句段1”;当为“值2”时，即执行“语句段2”;当所有的值都不符合时，则执行“语句段n”，需要判断多少个值，就编写多少个Case 。 第三章 第三节 过程与函数 过程是构成程序的一个模块。简单地说，过程就是为完成一定任务而编的一段程序，用来完成一个相对独立的功能。过程可以使程序更清晰、更具结构性。VBA具有四种过程:Sub 过程、Function函数、Property属性过程和Event事件过程。 在做课件过程中，一般情况下，我们可能用到的是Sub过程及Function函数。 一(Sub过程 Sub过程又称子过程。 语句结构: Sub 过程名() ... End Sub 下面举例一个简单的过程，完成一个基本的功能。 实例3_5a:利用输入、输出函数，输入你的姓名，然后再输出你的名字信息。 Sub yourname() '过程名称是yourname，过程开始 Dim name1 As String '定义一个变量name1 name1 = InputBox("请输入你的姓名:") '显示输入对话框，当用户输入姓名后的值赋给变量name1 MsgBox "你的姓名是:" & name1 '再用输出对话框，输出你的姓名 End Sub '过程结束 程序代码见文件:3-5过程函数调用.rar 。播放课件看看效果如何。 过程的执行(调用)过程:打开文件可以见到，在VBA代码中，有一个过程Sub yourname() ,那如何调用(执行)它的功能呢,在课件中还须设置一个控件“按钮”，这个控件代码(Call yourname)，就是调用了这个过程的。所以，在课件播放时，点击“按钮”就可以调用这个过程了。 Sub 过程可以带参数。在过程名后面的()里加上参数。在后面通过实例说明如何使用吧。 实例3-5b:求n个数的求和及阶乘。程序运行时，要求输入一个最大的整数，然后分别计算1至n的和及阶乘，把结果输出信息框(见下面介绍)。 二(Function函数 VBA中包含很多内部函数，例如常用的数学函数(下面会讲解)。这里指的Function函数实际上是 用户自己定义的一段代码，来完成特定的运算并返回结果。参数传递也两种:按值传递(ByVal)和按地址传递(ByRef)。 语句结构: function 函数名(参数 As 参数类型) ...... End Function 例子:建立一个函数用于计算阶乘，参数和返回值都是Double值。 Function factorial(num As Double) As Double '建立阶乘函数，函数名是factorial Dim i As Double '定义变量 Dim temp As Double '定义变量 temp = 1 For i = 1 To num '循环开始 temp = i * temp '每循环一次，将数与乘积相乘,temp=1*2*3*...*num Next i '循环结束 factorial = temp '将循环阶乘结束的值赋给factorial End Function '函数结束 第三章 第四节 VBA内置函数 VBA应用程序中可以使用以下几种内置函数:数学函数、字符串函数、日期和时间函数、类型转换函数、逻辑测试函数和输入输出函数。使用这些函数可以充分发挥VBA语言功能，可以帮助程序代码设计和减少代码的编写工作，在实际应用中起到事半功倍 的效果。尤其在制作数学课件过程中，运用数学函数会令课件增强科学函数计算机功能。 一(测试函数 IsNumeric(x) „是否为数字, 返回Boolean结果，True or False IsDate(x) „是否是日期, 返回Boolean结果，True or False IsEmpty(x) „是否为Empty, 返回Boolean结果，True or False IsArray(x) „指出变量是否为一个数组。 IsError(expression) „指出表达式是否为一个错误值 IsNull(expression) „指出表达式是否不包含任何有效数据 (Null)。 IsObject(identifier) „指出标识符是否表示对象变量 二(数学函数 Sin(X)、Cos(X)、Tan(X)、Atan(x) 三角函数，单位为弧度 Log(x) 返回x的自然对数 Exp(x)返回 ex Abs(x) 返回绝对值 Int(number)、Fix(number) 都返回参数的整数部分，区别:Int 将 -8.4 转换成 -9，而 Fix 将-8.4 转换成 -8 Sgn(number) 返回一个 Variant (Integer)，指出参数的正负号 Sqr(number) 返回一个 Double，指定参数的平方根 VarType(varname) 返回一个 Integer，指出变量的子类型 Rnd(x)返回0-1之间的单精度数据，x为随机种子 三(字符串函数 Trim(string) 去掉string左右两端空白 Ltrim(string) 去掉string左端空白 Rtrim(string) 去掉string右端空白 Len(string) 计算string长度 Left(string, x) 取string左段x个字符组成的字符串 Right(string, x) 取string右段x个字符组成的字符串 Mid(string, start,x) 取string从start位开始的x个字符组成的字符串 Ucase(string) 转换为大写 Lcase(string) 转换为小写 Space(x) 返回x个空白的字符串 Asc(string) 返回一个 integer，代表字符串中首字母的字符代码 Chr(charcode) 返回 string，其中包含有与指定的字符代码相关的字符 四(转换函数 CBool(expression) 转换为Boolean型 CByte(expression) 转换为Byte型 CCur(expression) 转换为Currency型 CDate(expression) 转换为Date型 CDbl(expression) 转换为Double型 CDec(expression) 转换为Decemal型 CInt(expression) 转换为Integer型 CLng(expression) 转换为Long型 CSng(expression) 转换为Single型 CStr(expression) 转换为String型 CVar(expression) 转换为Variant型 Val(string) 转换为数据型 Str(number) 转换为String 五(时间函数 Now 返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。 Date 返回包含系统日期的 Variant (Date)。 Time 返回一个指明当前系统时间的 Variant (Date)。 Timer 返回一个 Single，代表从午夜开始到现在经过的秒数。 TimeSerial(hour, minute, second) 返回一个 Variant (Date)，包含具有具体时、分、秒的时间。 DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目 Second(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒 Minute(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟 Hour(time) 返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点 Day(date) 返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日 Month(date) 返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月 Year(date) 返回 Variant (Integer)，包含表示年份的整数。 Weekday(date, [firstdayofweek]) 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几 。 六、输入输出函数 在VBA中，有一类重要函数就是输入输出函数，通过它们用户可以编制具有交互性强的程序。它们分别是:MsgBox函数、Input函数。(具体介绍见下页) 第三章 第五节 调用VBA程序 编写了一段VBA程序之后，该如何让它们执行呢,其实通过前面的例子大家都应该知道，在编写VBA代码时，有几种方法: 1.一种是通过控件调用。在Powerpoint幻灯片中设置了一个“控件”(如“命令按钮”控件)，双击该控件就可以打开VBA代码编辑窗口 ，在控件的Click事件中编写程序代码。代码编写完毕，并保存。以后在放影课件时，点击该幻灯片的“控件”就直接调用了里面的VBA程序代码了。这是比较常的方法。 2.另一种VBA程序是写在子过程代码中。这种VBA程序是完成一个特定的功能。然后再调用子过程。(3.3节 过程与函数) 第四章 PPT多媒体交互课件实例 第四章 第一节 制作课件导航菜单 一个成功的课件，PPT课件也不例外，必须有课件的导航菜单。课件菜单的表现形式有多种,以PPT课件为例， 在前面章节学习过程中已经举例，现总结归纳如下: 1.通过首页的“超级链接”设置导航菜单。 一般在课件首页，设置“超级链接”菜单。设置的可以是文字超级链接，也可以是图片超级链接。当设置好超级链接后，每一小节最后一页幻灯片必须有一个“返回”铵扭。 这样，达到课件的“模块操作”效果。 2.通过“幻灯片母版”设置导航菜单。 点击“视图->母版->幻灯片母版”进入母版编辑页，如果不喜欢原来默认的样式，则需把所有的样式都删去，保留一个空白母版。在母版上可以设置背景、页面边框、动作按钮及菜单等功能。 例如:在母版中设置如下菜单按钮，做好超级链接的跳转页面，保存后，则在每一页幻灯片都会显示这个菜单，上课时，不管在课件什么位置，教师都可以点击这个菜单来达到跳转效果，达到“模块操作”效果，而不会因为不知道跳转页面搞得手忙脚乱。 3.通过“触发器”设置导航菜单。 利用触发器制作交互课件菜单。利用“动作按钮”来控制课件中“目录菜单”的出现，需要时点击“按钮”，“目录菜单”即出现，不需要时再点击“按钮”，“目录菜单”即消失。制作要求在“母版幻灯片”中进行，因为“目录菜单”需要在每一个幻灯片页面中根据教学的需要随时调出使用，所以必须在“幻灯片母版”中制作。制作过程见实例1.4-6及录像1.4-6。 播放时，只有一个按钮显示在窗口中，当鼠标点击按钮时，从按钮中弹出一个菜单，再点击一下按钮，菜单收回。这个过程要配合菜单的出现方式和退出方式实现，其中的菜单项设置了超级链接。 以上几种操作方法在前面已经讲述，操作过程比较容易，这时不再举例。 注意前期完成的工作:假设课件总共有14个页(幻灯片)。如上图，为了能够达到在课件中设置菜单后的效果，对课件应做如下处理: 1.前期完成所有幻灯片的页编辑。 3.将所有幻灯片放映切换模式由原来的“点击鼠标切换”变为不切换模式。 第四章 第二节 制作视频播放器 为了能更好地帮助大家合理地在PowerPoint课件中插入和播放视频文件，下面介绍PowerPoint中插入和处理视频的几种方法: 一、直接插入视频文件 这种播放方法是将事先准备好的视频文件作为电影文件直接插入到幻灯片中，该方法是最简单、最直观的一种方法，使用这种方法将视频文件插入到幻灯片中后，PowerPoint只提供简单的[暂停]和[继续播放]控制，而没有其他更多的操作按钮供选择。因此这种方法特别适合PowerPoint初学者，以下是具体的操作步骤: 1. 运行PowerPoint程序，打开PPT课件或新建一张幻灯片。 2. 将鼠标移动到菜单栏中，依次单击“插入”-->“影片和声音”-->“文件中的影片”命令。 3. 在随后弹出的文件选择对话框中，将事先准备好的视频文件选中，并单击[添加]按钮，这样就能将视频文件插入到幻灯片中了。 系统还要问你:你希望影片是自动播放还是单击鼠标播放, 一般是“单击鼠标”进行播放视频。 4. 用鼠标选中视频文件，并将它移动到合适的位置，然后根据屏幕的提示直接点选[单击鼠标播放]或[自动播放]方式。 5. 在播放过程中，可以将鼠标移动到视频窗口中，单击一下，视频就能暂停播放。如果想继续播放，再用鼠标单击一下即可。 这种方法，视频只能往前播放，而不能向后退。 二、插入控件播放视频 这种方法就是将视频文件作为控件插入到幻灯片中的，然后通过修改控件属性，达到播放视频的目的。使用这种方法，有多种可供选择的操作按钮，播放进程可以完全自己控制，更加方便、灵活。该方法更适合PowerPoint课件中图片、文字、视频在同一页面的情况。以下是具体的操作步骤: 实例:4-2在幻灯片上插入视频播放控件录像.exe 1. 运行PowerPoint程序，打开需要插入视频文件的幻灯片。 2. 打开“控件工具箱”，点击“控件工具箱”最右边“其他控件”按钮。 立即出现下拉列表。 3. 在下拉列表中，找到“Windows Media Player”选项，并选中，再将鼠标移动到PowerPoint的编辑区域中，画出一个合适大小的矩形区域，随后该区域就会自动变为Windows Media Player的播放界面。 4. 用鼠标选中该播放界面，然后单击鼠标右键，从弹出的快捷菜单中选择“属性”命令，打开该媒体播放界面的“属性”窗口。 5. 在“属性”窗口中，在“File Name”设置项处正确输入需要插入到幻灯片中视频文件的详细路径及文件名。 若在Powerpoint2003则在URL处输入视频文件的路径及文件名。这样在打开幻灯片时，就能通过[播放]控制按钮来播放指定的视频了 ，还可以[暂停]及选择任意时间段来播放。 6. 在播放过程中，可以通过媒体播放器中的[播放]、[停止]、[暂停] 和[调节音量]等按钮对视频进行控制。 第四章 第三节 制作动画播放器 一、在PowerPoint中播放Flash动画 如果您使用Flash创作软件创建了动画(或者从网上下载的动画资源)，并将其保存为swf格式文件(.swf 文件扩展名)，您可以使用特定的 ActiveX 控件和 Macromedia Flash 播放器在 PowerPoint演示文稿中播放它。要运行 Flash 文件，必须在幻灯片中添加 ActiveX 控件并在该幻灯片中创建一个指向 Flash 文件的链接。也可以在演示文稿中嵌入该文件。 1.控件的注册。 要在 PowerPoint 中播放 Flash 文件，必须将名为“Shockwave Flash Object”的 ActiveX 控件“注册”到您的计算机上。如果已注册，它将出现在从“控件工具箱”中打开的控件列表中(将在下面的步骤中详细说明)。如果未注册，请从 Macromedia Web 站点上下载 Macromedia Flash 播放器的最新版本;它将在您的计算机上注册该控件。 您的计算机上可能已注册了较早版本的 Shockwave Flash Object。为确保复杂动画能够正常运行，建议您安装 Macromedia Flash 播放器的最新版本。 2.添加控件到幻灯片。在 PowerPoint 的普通视图下，单击“控件工具箱”-->“其他控件”,在列表中，向下滚动并单击“Shockwave Flash Object”，然后将“+”鼠标放到幻灯片上以绘制该控件(拉动鼠标，以适应动画的尺寸)。 3.为控件设置属性。在绘制好的Flash控件上单击鼠标右键，然后单击“属性”。 在“按字母序”选项卡中，单击 Movie 属性。在取值栏(Movie 旁边的空白单元格)中，键入要播放的 Flash 文件的完整驱动路径(包括文件名在内。例如，D:\swf\m5408.swf) 。 4.要设置动画播放的特定选项，请执行以下操作，完成后关闭“属性”对话框(如右图): 确保 Playing 属性设为 True。该设置使幻灯片显示时自动播放动画文件。如果 Flash 文件内置有“开始/倒带”控件，则 Playing 属性可设为 False。 如果不想让动画反复播放，请在 Loop 属性中选择 False(单击单元格以显示向下的箭头，然后单击该箭头并选择 False)。 要嵌入 Flash 文件以便将该演示文稿传递给其他人，请在 EmbedMovie 属性中单击 True。(但是，要运行 Flash 文件，任何运行该演示文稿的计算机都必须注册 Shockwave Flash Object 控件。) 5.运行幻灯片:在幻灯片的普通视图下，单击 PowerPoint 窗口左下方的“幻灯片放映”按钮，观看放映(如下图)。 要退出幻灯片放映并返回普通视图，请按 ESC 键。 如果你要控制Flash动画的播放与停止，请按鼠标右键快捷菜单进行控制，但这种控制可能令你感到麻，因为鼠标可能不听你的操作。 6.使用“打包”打包文稿 如果想使用 PowerPoint 中的打包向导 打包演示文稿(在另外一台计算机上播放)， 请牢记以下几点: (1)运行打包向导时，将显示消息提示 您无法打包 ActiveX 控件。这意味着打包向 导不能打包在目标计算机上注册控件所需的 信息。单击“确定”跳过此消息以使打包继续 进行。 (2)除非您将 Flash 文件嵌入到演示文 稿中(在“属性”对话框中将 Embed 设置为 True)，否则打包向导不会将 Flash 文件打包。如果没有在打包的演示文稿中嵌入 Flash 文件，则需要将该文件复制到目标计算机、网络共享或 Web 服务器上，并将 ActiveX 控件的 Movie 属性更新为该文件的新路径。 (3)请确保目标计算机上已安装了 Macromedia Flash 播放器。这是为了保证将 Shockwave Flash Object 注册到目标计算机上。 如果您想在目标计算机上使用 Microsoft PowerPoint 阅读器(而不是 PowerPoint)运行演示文稿，则无法在幻灯片放映中播放 Flash 文件，但可以在独立的 Macromedia Flash 播放器中播放该文件。 7.将演示文稿发布到 Web 如果您将包含 Flash 文件的演示文稿发布到 Web，请勿将 Flash 文件嵌入到演示文稿中。请将其链接到演示文稿并确保“属性”对话框中的路径正确。 小结:采用插入 Shockwave Flash Object控件的方法来播放Flash动画，一般是没有“播放、前进、倒退、停止”等控制按钮的。如果Flash动画本身具有自带播放按钮(一般的多媒体Flash动画都有)，在播放幻灯片时就通过Flash本身的动画按钮来控制动画的播放进度;但有一种的Flash动画是没有播放按钮的，因这类动画在播放时就不可能控制了。 二、控制Flash动画的播放 如果在幻灯片中播放没有控制按钮的Flash动画,而中途又需要暂停或重新播放，怎么办呢,那就要使用特制的“Flash播放器”来解决了(请看4.5节:特色控件的应用) 第四章 第四节 制作试题型课件 交互课件，其中重要的一项内容就是在课件是能够提供学习者一些智能交互的练习试题。 试题主要分为:客观题(判断题、填空题、选择题)、主观题(简答题、论述题)等。在这里，主要讲述如何制作客观题为例。 一、试题表现形式 在PPT课件中，因为PPT课件主要以幻灯片(页)的形式表现出来，而页的长度有限，而不象网页那样页的长度可以随意变化，因此在PPT课件中设计的试题 因页面的局限很难设计出大容量的试卷。通常在课件中提供少量的练习型试题还可以。根据提交答案的方式，试题表现出两种形式: 1.即显答案形式:是指在一页幻灯片中只设置一道练习题，当做完这道题后再进行下一页做第二道题，这时每一道题的答案会立即显示出来。这种方法往往被多数教师使用，这种表现试题的形式多数为:当点击鼠标时答案立即提示出来。这种方法可以使用普通文字动画形式及简单的VBA编程形式表现出来 。 2.集中提交答卷形式:这种试题形式，就好象整张试卷一样，做完所有练习题后一次提交答案，最后显示答案对错及分数。采用这种形式组织试题需要VBA编程及数据库处理 ，难度比较大。 二、单项选择题交互课件 要制作单选项，需要使用 选项按钮(OptionButton)，选择按钮通常一组使用，只能选中其中一个，用来制作单项选择题或判断题。 实例:4.4制作一个历史科的选择题课件.rar 1.新建幻灯片文档。 2.创建题目文本框。文本框输入题目内容:“奠定今天我国版图的朝代是:” 3.创建选项按钮。单击“控件工具箱”中的“选项按钮”控件，光标在幻灯片适当位置拖动鼠标创建第一个选项按钮;按照此方法再制作三个选项按钮。 4.设置选项按钮属性值，如下表: \ 按钮名OptionButtonOptionButtonOptionButtonOptionButton称 1 2 3 3 属性\ A.唐朝 B.元朝 C.秦朝 D.清朝 Caption Value False False False False 5.编写VBA程序。 (1)这里，第一个选项Optio nButton1是正确的，双击这个 选项按钮，打开VBA代码编辑 窗口，输入以下代码: Private sub OptionButton1_click() if OptionButton1.Value=True then ex=MsgBox("选择正确～恭喜 你～",VbOKOnly) End if End sub 以上代码功能是:当点击选项1时，因为这是正确的答案，屏幕会显示对话框“选择正确～恭喜你～”。 (2)编写错误答案的VBA代码，分别双击OptionButton2、OptionButton3、OptionB utton4，打开VBA编辑窗口，输入代码: Private sub OptionButton2_click() if OptionButton2.Value=True then ex=MsgBox ("选择错误～ 请再想想～", VbOKOnly) End if End sub Private sub OptionButton3_click() if OptionButton3.Value=True then ex=MsgBox ("选择错误～ 请再想想～", VbOKOnly) End if End sub Private sub OptionButton4_click() if OptionButton4.Value=True then ex=MsgBox ("选择错误～ 请再想想～", VbOKOnly) End if End sub 以上代码功能是:当点击选项2、选项3或选项4时，因为这是错误的答案，屏幕会显示对话框“选择错误～请再想想～”。 以上代码功能是:当点击选项2、选项3或选项4时，因为这是错误的答案，屏幕会显示对话框“选择错误～请再想想～”。 6.播放幻灯片。代码编辑完毕，返回幻灯片编辑，播放幻灯片，点击选项按钮，看看效果。这种试题制作形式是“即显答案形式”，当点击选项按钮时，立即显示答案是否正确。 下面让我们继续完善该课件的其它功能。 7.添加一个“命令按钮”，将属性Caption 值设置为“重新选择”。双击按钮，打开VBA编辑代码窗口，输入以下代码: Private sub CommandBu tton1_click() OptionButton 1.Value=Fals e OptionButton 2.Value=Fals e OptionButton 3.Value=Fals e OptionButton 4.Value=Fals e End sub 以上代码功能是，当点击“重新选择”按钮，幻灯片4个选项的值重新设置为“假(False)"即返回原先没有选中的状态。 以上代码功能是，当点击“重新选择”按钮，幻灯片4个选项的值重新设置为“假(False)"即返回原先没有选中的状态。 8.再添加一个“命令按钮”，将属性Caption 值设置为“下一题”。双击该按钮，打开VBA编辑代码窗口，输入以下代码: Private sub CommandButton2_click() If MsgBox("是否继续,",vbYesNo+vbQuestion,"下一题")=vbYes then with slideshowWindows(1).View.GotoSlid 2 End With End sub 以上代码功能是:当点击“下一题”时，弹出对话框“是否继续,”，当回答“是”则继续跳传到下一个幻灯片(这里假设是第2片，数字2可根据实际情况的页数跳传) 第五章 数据库连接与操作 第五章 第一节 数据库入门 制作多媒体课件时，教师们通常把文字、声音、图像、动画与视频资源集于一身，做出来的课件图文并茂，教学效果好。但如果每一节课都能做到图文并茂的话，那是不可能的，也没有必要这样做。要根据不同学科教学的需要来确定教学资源，有的课程，经常需要处理一些数据，通过数据的处理来达到教学目标，而非文字与图像能够做的事;有的课程，需要大量的实验数据或信息资源来实施教学，必须通过从数据库中读取数据来实现。因些，要制作符合学科教学特色的实用性教学课件，除文字、声音、图像、动画与视频资源信息外，对数据的分析与处理，作为提升多媒体课件的教学功能，这是十分必要的。 一、数据的 来源 学科教学中用到的数据，一般是从实践中得到数据资料，再通过录入操作，把实践得到的数据录入计算机中保存。数据的保存方法，通常是通过以下几种方式: 学科教学中用到的数据，一般是从实践中得到数据资料，再通过录入操作，把实践得到的数据录入计算机中保存。数据的保存方法，通常是通过以下几种方式: 1.直接把数据录入Powerpoint幻灯片中的表格中。通过PPT绘制表格，把数据直接录入幻灯片的表格内。这种表格内的数据，通过VBA程序可以访问数据。 2.把数据录入EXCEL电子表格。数据保存在EXCEL电子表格有二种情况: 第一种是以EXCEL文件格式独立保存，这种数据保存在Powerpoint应用程序的外部，作为个部数据资源。第二种是在Powerpoint幻灯片中，以“对象”的形式插入EXCEL电子表格，把数据保存于Powerpoint文件中。这两种电子表格的数据，在PPT中很难通过VBA编程来访问与处理，一般是把数据通过手动操作与处理后，把数据结果显示在幻灯片上。 通过EXCEL电子表格录入数据是教师最常用的保存数据的方法，但电子表格数据只能独立处理完毕，通过内容的复制办法将数据粘贴到幻灯片片上。 3.把数据录入ACCESS数据库中。 数据库保存又以ACCESS数据库形式最多，使用ACCESS数据库处理数据，教师应用得比较少，因为ACCESS数据库是一种关系型数据库，保存于数据表中，需要访问与操作时必须打开数据库，使用起来比EXCEL电子表格不方便，一般是通过编写应用程序来访问ACCESS数据库的。 在PPT课件中，可以通过VBA编程，访问ACCESS数据库的数据来达到数据分析与处理的目的，提高其处理数据的能力。 二、ACCESS数据库的基本操作 一般来说，教师在制作课件过程中，通常都要把所有需要显示的文字(如试题内容)都要事先写在幻灯片文字框内，在教学演示过程中，按顺序点击鼠标，文字动画就会按照教师原先设想的思路全部显示出来。如果用这种方法制作“练习试题”课件，教师的工作量大，每一道题都要事先把判断对错的动画做好，每一道题目都要事先写在幻灯片页面上 ，用这种办法做出来的课件让学生学习、操作，学生就会没有什么兴趣了。 “数据库”是一个大容量储存器，可以储存大量的教学资源信息，可以储存文字、数据、图像等种格式的数据。例如，用于储存试题 库，需要时调出来使用，相当方便。通过VBA编程可以做到这一点。下面简单介绍建立ACESS数据库的操作。 操作方法如下: (1)打开Office办公软件中的 Access数据库软件; (2)建立数据库。点击菜单“新建”-->“空数据库”，打开对话框，输入要保存的数据库文件名:(例如，文件名取: text.mdb )，再点击“创建”。完成一个空数据库的操作，并显示“数据库”管理器窗口，但里面还没有任何数据表。如下图: (3)创建一个数据表。在打开的“数据库”管理器窗口中，双击“使用设计器创建表”，即可打开数据表设计。在这里，你可以设计出个试题库的“表结构”，所谓“表结构”就是要保存试题的表头及格式，例如要在表中将要保存以下数据:“题号、题目、答案1、答案2、答案3、答案4、正确答案、备注”等信息，那么在表设计中必须把这些表结构信息设计好，然后再录入数据。为了方便，暂时把表设计定义为选择题的形式，有4个答案供选择(如果不止4个答案，可定义更多答案)如下表: 字段名称 数据类型 字段大小 说明 题号 文本 4 题目 文本 100 文本 答案1 A 50 文本 答案2 B 50 文本 答案3 C 50 文本 答案4 D 50 正确答案 文本 4 备注 文本 50 50 文本 定义好表结构后，点击“保存”，输入一个表名称(例如:选择题)，再点击“确定”，这样，一个空的表建立完毕。在“数据库”管理器中增加了一个名称为“选择题”的表。 (4)录入试题数据。双击“选择题”表，即打开表编辑窗口，这时，你可以录入你的数据了，录入过程就不用讲了，与电子表格录入差不多吧。最后，记住保存数据。如果你不熟悉在表编辑内录入数据，你可以在电子表格(EXCEL)中事先输入一个完整的试题库电子表格，再使用ACCESS数据库“获取外部数据”功能实现数据的导入。方法是:依次点击“文件-->获取外部数据-->导入”命令，打开“导入”窗口，在“文件类型”中选择XLS类型，按提示一步一步完成就可以了。 第五章 第二节 数据库连接与操作 一、连接ACCE SS数据库 一般情况下，使用Powerpoint应用程序，数据库对象是没有被引用的。要使用数据库，必须引用数据库对象(ADO)来达到目的。引用数据对象的一般步骤为: (1)切换到PowerPoint中的Visual Basic编辑器; (2)执行“工具/引用”菜单命令; (3)在打开的对话框中选择要引用的ActiveX数据对象,在打开的引用对象对话框列表中选择Microsoft ActiveX Data Objects 2.0 library项,再按“确定”按钮。 (4)创建连接数据对象及操作数据对象。 在创建VBA宏代码中使用ADO的Connection对象中的Open方法建立到数据库的连接，其语法为: Connection.Open ConnectionSting,UserID,Password,Options Connection连接对象代表与数据库连接，它是与数据库进行的惟一会话，在使用数据库之前，必须建立Connection对象。 语法中ConnectionSting为包含连接信息的字符串，UserID参数为建立连接时使用的用户名，参数Password为建立连接时使用的口令，参数Options为用于建立连接时是否等待连接还是立即返回。 (5)创建数据记录表对象。 在打开数据库后，还必须创建记录集对象Recordset,同时使用OPen方法打开相应的数据表记录集， 操作实例:假设在电脑D:盘有一个数据库text.mdb ，该数据库中有一个数据表叫“选择题”，从定义变量到打开数据表需要下面几个语句，必须的，不可缺少('号后面的文字是注释)。 Dim cnnpxp As New ADODB.Connection '定义连接数据库对象， Dim setpxp As New ADODB.Recordset '定义创建记录集对象 Dim constring As String ?定义连接字符串变量 constring = "provider=microsoft.jet.oledb.4.0;" & "data source=" & "d:\text.m db" '给字符串constring赋值，数据库d:\text.mdb根据实际路径改变 cnnpxp.Open constring '打开数据库 setpxp.Open "选择题", cnnpxp, adOpenStatic, adLockOptimistic 以上步骤，第(1，2，3)步表示引用数据库成功，要实现第(4，5)步，还要在宏代码中通过编程输入连接数据库语句来实现打开数据库 及数据表的操作，因此，这些代码需要在具体操作过程中进一步描述代码写在哪里。 二、实例: 制作与数据库链接的试题 请看实例: 5.2制作与数据库链接的试题.rar 操作步骤简要说明如下: 1.创建一张白幻灯片，设置一个“命令按钮”(Caption取值“显示窗体试题”) 2.打开VBA编辑器，添加一个用户窗体(userform1)，在窗体中添加控件:3个文字框、4个命令按钮等控件，4个命令按钮分别是(开始出题、上一题、下一题、统计总分)如下图: 3.双击任一个控件，打开代码编辑窗口，复制如何代码: Dim setpxp As New ADODB.Recordset Dim cnnpxp As New ADODB.Connection Dim constring As String Dim th, tm, da1, da2, da3, da4, da5 As String Dim a(50), b(50), c(50) Dim i, j, row, sum As Integer Private Sub CommandButton1_Click() '开始出题 constring = "provider=microsoft.jet.oledb.4.0;" & "data source=" & "d:\text.mdb " '如果你的数据库不在D盘，请修改路径 cnnpxp.Open constring setpxp.Open "选择题", cnnpxp, adOpenStatic, adLockOptimistic row = 0 With setpxp Do While Not .EOF row = row + 1 setpxp.MoveNext Loop End With setpxp.MoveFirst If Not setpxp.EOF Then i = setpxp("编号") th = setpxp("题号") tm = setpxp("题目") '以下是四个答案 da1 = setpxp("A") da2 = setpxp("B") da3 = setpxp("C") da4 = setpxp("D") a(i) = setpxp("正确答案") '正确答案 c(i) = setpxp("分数") '读取分数 CommandButton1.Enabled = False CommandButton2.Enabled = True If i < row Then CommandButton3.Enabled = True Else CommandButton3.Enabled = False End If CommandButton4.Enabled = False TextBox1.Text = th + " " + tm TextBox2.Text = "答案A:" + da1 + " B:" + da2 + " C: " + da3 + " D: " + d a4 TextBox3.Text = b(i) End If End Sub Private Sub CommandButton2_Click() '提交答案 i = 1 sum = 0 For i = 1 To row If UCase(b(i)) = UCase(a(i)) Then sum = sum + c(i) End If MsgBox i & "," & b(i) & "," & a(i) Next i MsgBox "统计总分是:" & sum End Sub Private Sub CommandButton3_Click() '下一题 setpxp.MoveNext CommandButton4.Enabled = True If Not setpxp.EOF Then i = setpxp("编号") th = setpxp("题号") tm = setpxp("题目") da1 = setpxp("A") da2 = setpxp("B") da3 = setpxp("C") da4 = setpxp("D") a(i) = setpxp("正确答案") '正确答案 c(i) = setpxp("分数") '读取分数 TextBox1.Text = th + " " + tm TextBox2.Text = "答案A:" + da1 + " B:" + da2 + " C: " + da3 + " D: " + d a4 TextBox3.Text = b(i) End If If i < row Then CommandButton3.Enabled = True Else CommandButton3.Enabled = False End If End Sub Private Sub CommandButton4_Click() '上一题 If setpxp.BOF Then CommandButton4.Enabled = False Else setpxp.MovePrevious CommandButton3.Enabled = True If Not setpxp.BOF Then i = setpxp("编号") th = setpxp("题号") tm = setpxp("题目") da1 = setpxp("A") da2 = setpxp("B") da3 = setpxp("C") da4 = setpxp("D") a(i) = setpxp("正确答案") '正确答案 c(i) = setpxp("分数") '读取分数 TextBox1.Text = th + " " + tm TextBox2.Text = "答案A:" + da1 + " B:" + da2 + " C: " + da3 + " D: " + d a4 TextBox3.Text = b(i) End If End If If i > 1 Then CommandButton4.Enabled = True Else CommandButton4.Enabled = False End If End Sub Private Sub TextBox3_Change() b(i) = TextBox3.Text End Sub 注意:在自己制作时，上面代码中命令按钮及其它控件的名称若有不对应的，请看清楚再复制代码，否则代码事件将会发生错误。 三、实例:从ACCESS数据库中导入数据到幻灯片 操作方法如下: 操作方法如下: 1、打开PowerPoint在新建的演示文稿插入两个空白幻灯片; 2、单击 “控件工具箱”中要添加的“命令按钮”图标，在第一个空白幻灯片输入有关实验数据处理的文字并在合适位置插入一个命令按钮; 3、选定刚插入的命令按钮后，单击 “控件工具箱”中“属性”图标，在caption属性值改为“导入实验数据”，即命名为“导入实验数据”命令按钮; 4、执行“工具/宏/ Visual Basic编辑器”菜单命令，在打开的Visual Basic编辑器中输入以下宏代码: (1)定义变量 Public setpxp As New ADODB.Recordset Public cnnpxp As New ADODB.Connection Dim constring As String (2)调用“输入框”和 “消息框” yourName = InputBox("请输入姓名(学号)", "实验数据处理课件(合金熔点的确定) ") x = MsgBox("你的姓名(学号): " & yourName, 0, "实验数据处理课件(合金熔点的确定)") If x = 1 And yourName <> "" Then '满足条件显示第二个幻灯片 SlideShowWindows(Index:=1).View.GotoSlide 2 End If (3)插入一个通用对话框 单击“控件工具箱”中的“其他控件”按钮，在打开的对话框中选择Microsoft Common D ialog Control Version 6.0项，插入在第一个幻灯片中，其宏代码为: CommonDialog1.InitDir = "D:\temp" CommonDialog1.Filter = "文本文件|*.mdb" CommonDialog1.ShowOpen '显示“打开”通用对话框，并选择有关文件(pxpmdb.mdb)“打开” constring = "provider=microsoft.jet.oledb.4.0;" & "data source=" & CommonDial og1.FileName cnnpxp.Open constring '建立与数据库pxpmdb.mdb(在目录D:\temp中存在)的连接 setpxp.Open "pxp", cnnpxp, adOpenStatic '指定表名pxp(pxpmdb.mdb中含有pxp表) row = 2 With setpxp Do While Not .EOF '将表pxp中的数据给数组sy()赋值及用row检索表pxp的行数 sy(row, 1) = setpxp.Fields(0) '将pxp表中的相应数据给相应的数组元素sy()赋值，下同 sy(row, 2) = setpxp.Fields(1) sy(row, 3) = setpxp.Fields(2) row = row + 1 .MoveNext '将数据库pxp表中的指针下移一行 Loop row = row – 1 If .EOF Then .Close '数据导入完成后关闭数据库Recordset对象 Set setpxp = Nothing释放内存空间 End If End With (4)在第二个幻灯片Slides(2)中插入的表格并自动导入实验数据 col = 3 '列数设置 ActivePresentation.Slides(2).Shapes.title.TextFrame.TextRange = "自动导入实验数据" '加入标题文字 Set tb51 = ActivePresentation.Slides(2).Shapes.AddTable(row, col, 250, 100, 43 0, 80).Table '插入表格 ActivePresentation.Slides(2).Shapes(1).Fill.ForeColor.RGB = RGB(255, 230, 0) tb51.Cell(1, 1).Shape.TextFrame.TextRange.Text = "序号" '输入表头，下同 tb51.Cell(1, 2).Shape.TextFrame.TextRange.Text = "合金含铝量(%)" tb51.Cell(1, 3).Shape.TextFrame.TextRange.Text = "合金熔点(摄氏度)" For x = 2 To row '在表格中自动导入数据 For y = 1 To 3 If y = 1 Then tb51.Cell(x, y).Shape.TextFrame.TextRange.Text = Format$(sy(x, y), "##00") Else tb51.Cell(x, y).Shape.TextFrame.TextRange.Text = Format$(sy(x, y), "###### 0.00") End If Next y Next x cnnpxp.Close '关闭连接 在PowerPoint中利用VBA对Microsoft的ActiveX数据对象(ADO)的引用能使PowerPoint链接到外部数据库并进行通信，这一功能克服了PowerPoint的不足，加强了PowerPoint与其它应用程序的数据通信和数据交换，极大地提升了PowerPoint的交互功能和多媒体课件的开发能力。 第六章 课件的打包与发布 第六章 第一节 课件资源的整理 在整个PPT课件制作过程中，一般情况下，把文字、声音、图像插入幻灯片后，这些素材已经被包含在幻灯片中，如果需要异地播放，可以直接把PPT文件复制到其它电脑上即可。而如果插入的是动、视频或声音文件，则要注意在打包过程中必须把这些原文件一齐打包。在本课程学习过程中，为了对多媒体素材的管理方便，尤其是在第四章学习了许多由作者本人制作的控件后，你的多媒体素材资源是没有被包含PPT课件中的，因此，学习了第四章以后，你必须明白，你的多媒体素材应该作适当的整理，明确课件与素材资源的关系，只有这样做，上课时才不出差错。那么，应该如何整理你的多媒体素材资源呢, 有的教师是这样处理自己的素材资源:平时把所有素材文件分散于电脑不同的文件夹，在制作课件过程中，想到那些素材有用，就调用(或插入)这些素材，等待课件做完以后，明天上课时(或以后再使用课件时)，冲忙中把PPT文件复制到U盘 了，而又忘记了把媒体素材一齐复制，这样往往造成上课的时候“出样相”(...天啊～我的素材不知道哪里去了～) 除了PPT课件本身的文件(*.rar)之外，还有许多外部素材资源，包括图片、声音、动画、视频等。这些文件须按不同类型进行分类，分别存放于不同的文件夹中，文件夹的定义与管理如下图: 在文件夹管理中，你的课件文件夹定义，以“XXX课件”为课件目录，再在该目录下面分别创建以不同媒体素材为文件夹的子目录，例如:图像(picture)、声音(sound)、视频(video)、网页(thml)、动画(flash)等等。这样命名后，你的课件文件夹下面就存在多个子文件夹了，把课件的外部素材，按类型分别存放于这些文件夹中，这样，你的素材就不会分散在你的电脑里。 凡是比较专业的多媒体课件制作工具，都是按照这种文件结构模式进行分类的。这样分类后，把你需要在本节课教学的外部文件都整理到课件的文件夹中，无论是在前期备课还是在后期上课或以后进行修改课件，都十分方便，符合科学管理规律。 在第四章学习过程中，你已经知道，应该把PPT幻灯片作为一个多媒体大容器来看待，这个大容器装可以装许多东西(素材)，但有些东西(素材)是包含在PPT幻灯片课件文件中，而有一些东西又不需要包含在课件文件中，这主要是出于备课的需要，当你使用了每四章“特色控件”时，你最好按照上面的文件分类,这有利于提高你的工作效率。 当课件做完成之后，最后一个工序就是对课件的打包与发布了。 一、打包课件 对课件的打包，有以下两种形式: 1.将课件打包成CD。将PPT课件打包成CD光盘(你的计算机须带有刻录机)，你可以把PPT课件在没有Powerpoint的计算机中播放。操作步骤如下: 对课件的打包，有以下两种形式: 1.将课件打包成CD。将PPT课件打包成CD光盘(你的计算机须带有刻录机)，你可以把PPT课件在没有Powerpoint的计算机中播放。操作步骤如下: (1)选择菜单“文件”-->“打包成CD”命令，即打开“打包成CD”对话窗口。如右图: 在对话窗口中，如果课件不是很大，可以单击“复制到文件夹”按钮将课件打包到你的U盘上;如果课件确实很大，可以单击“复制到CD”按钮，直接将课件打包到CD上。如果对打包的设置有特殊要求，还可以单击其中的“选项”，打开“选项”对话框，重新调设置一些打包参数。 如右图: 建议选中“包含这些文件”选项。如果需要， 还可以为课件设置一个使用密码(注意，如 果你的记性不是很好，最好不要设置密码， 否则，到时上课时你一下子忘记了密码又没 有办法上课时那怪不了谁了～)。 请注意:如果你的课件是没有使用到“宏”或“控件”的话，可能这样打包成CD。如果你的课件中包含有“宏”或“控件”的话，请你最好不要打包成CD，因为包含“宏”或“控件”的课件，打开时，每次都要启动“宏”或“控件”的，直接在CD上运行或能会不正常。 2.直接复制课件。 本人认为此方法简单、方便，只要将制作完成的课件整个目录复制到U盘或移动硬盘上进行携带就行了。复制到另一个计算机后，其视频、声音文件甚至不用重新设置就能正常播放。如果你是按照本课程第六章第一节所说的课件文件夹整理素材的方法，那最好使用此方法，因为处部视频、声音与图片文件一般情况下不能打包到PPT文件中去，因此，当你的媒体素材比较多时，建议使用这种方法，但有一个条件，就是异地计算机播放时必须同样安装Powerpoint应用程序。 二、发布PPT课件 目前网络课件非常流行，网络课件是多媒体课件发展的必然趋势，作为PPT课件必须向这方面发展。在Powerpoint2003中也提供了这一功能，本课程学习的一个目的，也是要求所制作的课件能够挂在网站上让学生在课后能够再次点播教师的课件，发挥课件的最大功能。把课件保存为“网页”的方法: 选择菜单“文件”-->“另存为网页”命令，即打开“另存为”对话框，单击“发布”按钮，出现“发布为网页”对话框，在“发布内容”选项中选中“整个演示文搞”单选按钮，再选中“要 浏览器中打开已发布的网页”复选框，最后单击“发布”按钮，系统立即生成一系统网页文件，发布完成后系统会自动调用IE浏览器打开刚才发布的课件。 注意:如果你的课件外部素材比较多，而且使用了第四章4.6节“特色控件的应用”中的控件，一般情况下，不建议对课件进行发布，因为发布的课件只对已经插入幻灯片中的视频、声音等素材同时发布，如果要调用外部素材的话，系统不会把外部素材一齐打包，因此这种情况下，建议使用文件压缩的形式，把整个课件文件夹压缩后挂在网上，让学习者使用下载的方式对课件进行下载，下载后自已解压课件，在本地计算机进行学习。