PowerPoint2010操作自动评判技术分析

徐强珍，刘昌华，朱晓磊

（山东畜牧兽医职业学院，山东潍坊261061）

PowerPoint2010操作自动评判技术分析

徐强珍，刘昌华，朱晓磊

（山东畜牧兽医职业学院，山东潍坊261061）

本文利用VB6.0对PowerPoint2010操作进行自动评判分析。在研究PowerPoint对象库和基本对象操作的基础上，结合高职“计算机应用基础”课程对PowerPoint 2010部分的教学目标和要求提出必须掌握的知识点，找准PowerPoint中宏录制中存在的问题及解决方案。利用VBA对PowerPoint对象和属性进行分析，然后用VB6.0实现对PowerPoint对象操作结果的自动评判，并给出一些相关的代码，以实现其评判功能。

PowerPoint属性；对象库；自动评判

PowerPoint是Microsoft Office办公套装软件的成员之一，是一个专门为制作演示文稿设计的软件。它凭借其强大的功能，易学易用，已被广泛应用于社会生活中的各个领域，如学术交流、产品演示和自我介绍，等等，而PowerPoint 2010在其以前版本的基础上做了较大的改进，使其功能更强大了。而在计算机应用基础教学中，PowerPoint 2010软件的熟练使用是学生必须要掌握的一种技能。在Microsoft PowerPoint 2010学习和测试中，一般都是上机操作，为了让学生及时了解操作的准确性，对练习/测试系统进行自动评判是十分必要的，这样可以减轻教师的辅导和阅卷工作量，也增加了评卷的客观准确性，避免了评卷过程中的主观因素。但现在大多是PowerPoint 2003的研究（以前也设计过针对PowerPoint 2003的自动评判系统），下面就如何实现对PowerPoint 2010上机操作结果的自动分析和评判进行设计探讨。实现PowerPoint 2010上机操作的自动评判，可以先对其基本操作归纳总结，如有插入幻灯片、修改对象的格式、修改版式和背景、定义动画、幻灯片切换和设置放映类型等操作内容；再利用VBA对PowerPoint对象进行分析，然后利用Microsoft Visual Basic 6.0(简称VB6.0）来实现对PowerPoint对象操作结果的自动评判。

1　PowerPoint对象库及基本对象操作

PowerPoint 2010比以前版本改进了很多，是Microsoft Office 2010办公套装软件中改动最大的软件，它的相关操作多样化，功能更强大，通过VB6.0对PowerPoint 2010编程的前提是在VB6.0中能引进PowerPoint对象库。它的引入可以通过VB6.0编程环境中的工程引用“Microsoft PowerPoint 14.0 Object Library”来设置。

引入PowerPoint对象库之后，Microsoft PowerPoint 2010中的各个组成元素（如演示文稿、幻灯片，等等）就一一对应于VB6.0支持并识别的各种PowerPoint对象集合。例如，VB6.0中的Presentations对象表示演示文稿，Slides对象表示当前演示文稿中的幻灯片，等等。因此，就可以根据操作要求和操作结果在VB6.0中通过调用适当PowerPoint对象的属性和方法，来完成对某一个指定的演示文稿的操作和判断，从而实现对PowerPoint 2010操作的评判。

2　PowerPoint中宏录制问题及解决方案

Office宏技术是测试系统开发的关键支持技术，这也是选择VB6.0开发系统的直接原因（使用VBA宏录制的代码经过简单修改即可为VB6.0代码所调用）。但是微软公司从PowerPoint 2007开始已经不再支持VBA宏录制支持。尽管能够启动早期的宏录制功能，但是其录制能力还停留在早期的2003版本代码，而且有相当一部分代码已经无法使用。因此，这部分的绝大部分评判代码需要开发人员借助于手动分析PowerPoint对象浏览器代码（以及PowerPoint 2010 Developer Reference）实现。PowerPoint对象库中基本对象的属性值直接反映出对象的特征或状态。通过提取属性值可以将对象当前状态与操作要求达到的状态进行比对，从而判断出之前所做的操作是否符合操作要求。但PowerPoint对象库中的基本属性和方法的类型繁多，使用方法比较复杂，通过手动编写或查找提取对象属性和方法，对于一般的程序编写者是有一定困难的。

3　评判功能的实现

对PowerPoint 2010操作评判是最重要的一部分，实现的难度也较大。对PowerPoint 2010操作评判采用的是结果比对的方法，即不考虑学生的操作过程，仅判断操作后的演示文稿中操作要求所涉及的PowerPoint对象的结果状态是否与操作要求一致，从而对操作结果进行评分。其中最关键的是对打开相应的演示文稿、对操作要求有关的PowerPoint对象属性和方法进行提取、整理和转换。

进行评分时，首先要在VB6.0中打开指定的演示文稿，只有处于活动状态的演示文稿才可以被调用编程。演示文稿的打开主要通过先定义PowerPoint. Application，并创建PowerPoint实例，再调用Open方法来实现。

其主要代码如下：

'声明变量

Dim oppt As New PowerPoint.Application'定义PowerPoint实例。

Dim s()As String

Dim iLower As Integer

iLower=1'赋值，不使用0下标，为的是与出错信息号码相一致，是s()的下标。

Dim i As Integer

Set oppt=New PowerPoint.Application'创建PowerPoint实例。

oppt.Visible=True'赋值

oppt.Presentations.Open(App.Path&“dat“&”djks.ppt”)'打开当前文件夹中dat子文件夹中的演示文稿djks.ppt文件。

操作要求：对应的评判模块主要是通过条件性语句来实现对演示文稿中相关对象的属性与操作要求逐一进行比较，如果比较结果一致就可得分，否则不得分并显示错误。评分完毕后，显示成绩与错误提示；也可同时将得出的分数写入一个数据库中。

对某一演示文稿的第一张幻灯片进行操作的主要代码如下：

第一，将第一张幻灯片背景纹理设置为“水滴”

If oppt.ActivePresentation.Slides(1).Background.Fill. Type=4 Then

ippt=ippt+2'与正确答案比较属性，若正确加2分，Else'若错误不加分且显示错误。

ReDim Preserve s(iLower)

s(iLower)=“背景纹理设置错误(-2)”&vbCrLf

iLower=iLower+1

End If

第二，将第二张幻灯片的标题文字设置动画效果为“飞”If oppt.ActivePresentation.Slides(1).Shapes(1). AnimationSettings.EntryEffect=3332 Then

ippt=ippt+2'与正确答案比较属性，若正确加2分，Else'若错误不加分且显示错误。

ReDim Preserve s(iLower)

s(iLower)=“动画设置错误(-2)”&vbCrLf

iLower=iLower+1

End If

第三，全部幻灯片的切换效果设置成“平移”、“单击鼠标时”换片。

Ifoppt.ActivePresentation.Slides(1).SlideShow Transition.EntryEffect=3931 Then

ippt=ippt+2'与正确答案比较属性，若正确加2分，Else'若错误不加分且显示错误。

ReDim Preserve s(iLower)

s(iLower)=“切换效果设置错误(-2)”&vbCrLf

iLower=iLower+1

End If

第四，将演示文稿的主题设置为“复合”。

If oppt.ActivePresentation.TemplateName=“复合”Then

ippt=ippt+2'与正确答案比较属性，若正确加2分，Else'若错误不加分且显示错误。

ReDim Preserve s(iLower)

s(iLower)=“主题设置错误(-2)”&vbCrLf iLower=iLower+1End If

4　结语

用编程的方法实现对PowerPoint 2010上机操作自动评分的功能，所用的计算机编程语言很多，这里只对利用VB6.0和VBA实现该功能的编程思路和步骤做简单的阐述，对编写无纸化测试系统提供一种借鉴的方法。基于中文开发的软件模块已于2014年下半年开始用于本学院非计算机专业学生的计算机应用练习与测试，近一年的上课测试及用于两学期的期末考试表明很方便实用。

［1］朱建国.PPT新视角VBA应用技术［M］.北京:电子工业出版社，2013.

［2］明日科技.Visual Basic开发经验技巧宝典［M］.北京:人民邮电出版社，2007.

［3］刘中宇，黄福君.PowerPoint操作测试自动评价技术研究［J］.计算机技术与发展,2009,(2):237-239.

Technical Analysis of PowerPoint2010 Operation of Automatic Evaluation

XUQiang-zhen,LIUChang-hua,ZHUXiao-lei
(ShandongAnimal Husbandryand VeterinaryCollege,Weifang261061,China)

In this paper,VB6.0 automatic evaluation of PowerPoint2010 operations analysis was conducted.Based on the research PowerPoint Object Library and the basic operation of the object,combining vocational"Computer Application Foundation"teaching objectives and requirements of the proposed section PowerPoint 2010 must master knowledge,identify PowerPoint macro Recording Problems and Solutions Program.Using VBA for PowerPoint objects and attributes were analyzed,and then use VB6.0 automatic evaluation of PowerPoint objects operatingresults and give some relevant code,in order torealize its evaluation function.

PowerPoint Property;Object library;Automatic evaluation

G516

B

1674-8646（2015）09-0054-02

2015-06-19

徐强珍（1966-），女，山东人，讲师，主要从事计算机教学与应用工作。