ppt高级应用1.docx

优质PPT实用制作指南（一）实例1：交互式电子试卷实例概述电子试卷是一些电子版的印有测试题目和答案的文稿。使用电子试卷组织者可以全面了解被测试者的知识和技能掌握程度。要创建交互式电子试卷，首先要创建一份试卷问题，答案，以及答案选择的控制控件。本实例讲解如何利用PowerPoint建立电子试卷，以及如何在PowerPoint中使用控件和VBA来实现问题答案的统计计算。实例制作流程：本实例需要用到PowerPoint的知识点包括：1导入Word文档2大纲选项卡3项目符号设置4段落间距调整5控件绘制6设置控件格式和属性7控件事件代码编写一、电子试卷题目的添加1将Word文档中电子试卷题目及答案添加到幻灯片中利用“幻灯片（从大纲）”选项，把给定的Word文档插入到幻灯片中PPT自动将Word文档中每个段落作为一个大纲标题生成多张幻灯片2使用大纲轻松划分问题幻灯片使用“段落”组中的“提高列表级别”按钮，将同类型问题合并到一张幻灯片中；设置“填空题”设置“单项选择题”设置“多项选择题”二、修饰电子试卷题目页面为了使交互式电子试卷题目更加清晰、美观，可以使用编号格式、段落格式等功能修饰电子试卷题目。1以编号替换题目前的项目符号设置编号的样式为“1,2,3”大小为“110”颜色为“白色”2快速调整文本字号及段落间距为了使各试题间区分更明显，用户可以调整每个题目选项与下一题目之间的段落间距，还可以使用“自动调整选项功能”自动调整文本的字号大小，这样可以避免因试题的文本内容太多而溢出显示区域。 为填空题页面设置段落间距：段前和段后的值分别为768磅和12磅使用“自动调整选项功能”自动调整文本，并设置相应题目的段后间距为18磅三、设置题目答案的交互式操作在设置好题目页面后，若想实现答题与结果返回的智能交互式操作，必须在设置好题目幻灯片后为每个答案选项添加相应的控制控件，然后借助VBA实现试卷答案分数统计。1使用文本框控件设置填空题在填空的区域添加文本框控件设置文本框控件的属性：文本框名称的修改通过复制控件添加其他文本框控件2使用选项按钮控件设置单项选择题在选项之前添加选项按钮控件设置选项按钮控件属性a）更改控件的名称b）BackStyle属性设置“0-fmBackStyleTransparent”c）设置“Caption”属性为清空通过复制添加其他选项按钮控件由于在一组单选按钮中，每次只能有一个正确选项，所以需要将每个题目单独放置于一个新的幻灯片中复制幻灯片，将每个题目单独放置在一个幻灯片中3使用复选框按钮设置多项选择题在选项之前添加复选框按钮控件设置复选框按钮控件属性a）更改控件的名称b）BackStyle属性设置“0-fmBackStyleTransparent”c）设置“Caption”属性为清空通过复制添加其他复选框按钮控件优质PPT实用制作指南（二）3使用复选框按钮设置多项选择题在选项之前添加复选框按钮控件设置复选框按钮控件属性a）更改控件的名称b）BackStyle属性设置“0-fmBackStyleTransparent”c）设置“Caption”属性为清空通过复制添加其他复选框按钮控件四、使用VBA自动判断回答是否正确为交互式电子试卷中的各个答案项添加了控制控件之后，要想控件生效，还需要为每题的控件设置相应的事件代码。这样就可以在交互式电子试卷中对题目进行回答后，即时给出相应的提示，使被测者了解该题是否做对。1编写所有文本框的改变事件代码采用的VB语法结构为：If 条件 then 语句1Else 语句2Endif解释：如果条件为True，则执行then部分的语句1，否则执行else部分的语句2。2编写所有单选按钮控件的事件代码：代码如下（其它代码编写过程类似）Private Sub TwoC_Click（） If TwoC.Value = True Then MsgBox “选择正确，请进入下一题测试！” Else MsgBox “选择错误，请仔细阅读题干！” End IfEnd Sub3编写所