利用VBA制作PowerPoint交互课件.pdfVIP

第21卷第4期 张家口职业技术学院学报 v01．21No．4 Journalof Vocationalof 2008年12月 ZhangjiakouCoHegeTechnology December，2008 王亚利，袁冬樵 (济源职业技术学院计算机系，河南济源454650) 互课件的过程。 关键词：PowerPoint；VBA；课件 中图分类号：G434；TP317．4文献标识码：B 文章编号：1008—8156(2008)04-0050—03 0引言 PowerPoint是Microsoft Office软件包的组件之一，是可视化演示文稿制作工具。利用它可以在计算机上制作出精美的 演示文稿，还能加上动画、特技效果、声音及视频剪辑等多媒体元素，使教学、演讲或产品发布变得生动、活泼，赋予演示对 象更强的感染力…。 有时我们需要制作一些进行交互的课件，如课堂的习题、测试或小型的考试，很多人都会觉得无从下手，其实在 Basicfor PowerPoint软件中集成有VBA(VisualApplications)宏语言怛o，它是基于VisualBasic发展而来，提供了相当完整的 程序设计语言。利用它可以进行PowerPoint二次开发，制作一些复杂的交互课件。 l制作PowerPoint普通交互课件 图1所示的是一道选择题的课件，使用的软件环境为PowerPoint2003，下面是其制作过程。 1．1界面设置 在PowerPoint中选择菜单选项“视图／T具栏／控件工具箱”，打开控件工具箱，在工具箱中有复选框、文本框、命令按 钮、单选框、标签等常用控件按钮，单击相应控件按钮，然后在幻灯片中拖动到适当大小即可插入该控件。如本例中除题 目外需从控件工具箱中插入4个单选框，再插入4个标签来显示各选项内容，2个命令按钮和1个文本框用来查看答案和 跳转。再设置控件的属性值。如设置答案提示文本框(TextBoxl)中的字体可单击控件工具箱中的“属性”按钮，选择 “font”属性来设置在文本框中显示的字体为“宋体、二号”等。 1．2编写代码 界面设置完成后，需在对象中添加代码，实现交互过程。 双击幻灯片中的控件或选择菜单命令“工具／宏／Visualbasic编辑器”即可进入VBA编程状态。 Sub 在“PfivateCommandButtonl—Click()”和“EndSub”之间(即“确定”按钮的Click事件过程中)输入以下代码： If Then II． OptionButtonl．Value=TrueTextBoxl．Text=”错了!答案为c Then fI． ⅡOptionButton2．Value=TrueTextBoxl．Text=”错了!答案为C If Then OpfionBuRon3．Value=TrueTextBoxl．Text=”你真棒!“ If Then fIt OpfionBuRon4．Value=TrueTextBoxl．Text=”错了!答案为c 当用户选择答案时可出现相应的提示。 “下一题”按钮的功能是跳转到下一张幻灯片，其实现的代码为： With SlideShowWindows(1)．View ．GotoSlide 2’2为第2张幻灯片，此语句表示转到第2张幻灯片 EndWitIl 编辑好后按F5测试效果。 2利用Access数据库制作PowerPoint交互课件 上述方法适合于小型的习题测试，如果题目过多，每道题都要如此制作，那么一个有成百上千道题的题库要想放入到 收稿日期：2008—09—09 作者简介：王亚利(1974一)，女，河南济源人，济源职业技术学院计算机系讲师，硕士。研