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-），女，山東人，講師，主要從事計算機教學與應用工作。