王愛平，閆會昌，梁辰

VB程序操作PPT的方法

王愛平，閆會昌，梁辰

（撫順職業(yè)技術(shù)學(xué)院，遼寧撫順113122）

為了更好地、更加靈活地使用M icrosoft Power Point演示文檔，常常通過VB語言編程來操作M icrosoft Power Point演示文檔。介紹了使用Visual Basic 6.0編程語言，運用ActiveX技術(shù)，用程序操作PowerPoint演示文檔中的對象的方法，并給出實現(xiàn)的相應(yīng)程序代碼。

M icrosoft Power Point軟件；Visual Basic 6.0軟件；應(yīng)用

在高職教育教學(xué)中，培養(yǎng)學(xué)生將不同學(xué)科的知識融會結(jié)合、綜合運用是非常重要的，也是培養(yǎng)學(xué)生綜合素質(zhì)能力的重要內(nèi)容。Visual Basic 6.0（簡稱VB6）是優(yōu)秀的、應(yīng)用廣泛的計算機程序設(shè)計語言，它常常用于單機程序的編制工作上，是計算機軟件專業(yè)課。M icrosoft Power Point演示文檔（簡稱PPT）軟件是目前廣泛使用的優(yōu)秀軟件，它被應(yīng)用于人們工作、學(xué)習(xí)和生活的很多方面，是高職學(xué)生的基礎(chǔ)課的內(nèi)容。如果能將VB6與PPT結(jié)合起來，并通過編程對PPT進(jìn)行操作，不僅能增強應(yīng)用程序的處理能力，也會使數(shù)據(jù)處理更加多樣化。筆者在教學(xué)中對此進(jìn)行了研究，并取得了一些成果，下面介紹利用VB6程序操作PPT的主要方法。

一、PPT的對象結(jié)構(gòu)

ActiveX部件是一組可重復(fù)使用的程序代碼和數(shù)據(jù)，由ActiveX技術(shù)的一個或一組對象組成。[1]ActiveX技術(shù)被廣泛地運用于各種程序中，它提供了在應(yīng)用程序中使用W indows應(yīng)用程序的功能，對于PPT也是如此。因此，首先要了解PPT的對象結(jié)構(gòu)。本文使用的PPT對象有Application對象、DocumentW indows對象、Presentation對象、Slide對象和Shapes對象，其基本關(guān)系如圖1所示。

圖1 PPT對象基本關(guān)系

其中：

●Application對象代表整個M icrosoft PowerPoint應(yīng)用程序。[2]

●DocumentWindows集合成員。DocumentW indows集合包含全部打開的文檔窗口。其中所包含的DocumentWindow對象代表一個文檔窗口。[2]

●Presentation對象代表PowerPoint中當(dāng)前打開的一個演示文稿。[2]

●Slides集合包含演示文稿中的所有Slide對象。[2]

●Slide對象代表一個幻燈片。[2]

●Shapes集合，代表文檔中的所有形狀；該集合代表被放置或插入到指定幻燈片、幻燈片母版、或幻燈片組的所有元素。該集合可以包含繪圖、OLE對象、圖片、文本對象、頁眉、頁腳、幻燈片編號，以及日期和時間對象，這些對象位于幻燈片或備注頁中的幻燈片映像上。其中的Shape對象代表繪圖層中的對象，代表文檔中的單個形狀。例如自選圖形、任意多邊形、OLE對象或圖片。如果要同時使用多個形狀或集合中的形狀，需要使用ShapeRange集合。ShapeRange集合，代表文檔中指定的部分形狀（例如ShapeRange對象可以代表文檔中的第一個和第四個形狀，或代表文檔中所有選定的形狀）。[2]

在編寫VB程序時，首先要聲明這些對象的變量，然后，按這些對象的結(jié)構(gòu)層次使用所聲明的變量。

二、在VB中引用的相關(guān)部件

運用VB程序中操作PPT對象之前，必須在工程中添加對PPT對象的引用。引用的方法是：在"工程"菜單中執(zhí)行"引用"菜單功能，在打開的"引用"對話框中選中"M icrosoft PowerPiont 12.0 Object Library"和"M icrosoft Office 12.0 Object Library"，然后單擊"確定"按鈕，完成引用。如果要使用圖表對象，還必須再添加"M icrosoft Office 12.0 Graph Library"的引用。

三、操作PPT的方法

PPT中包含了豐富的對象和眾多的演示效果及多多種多樣的操作。如：建立PPT，打開現(xiàn)有的PPT，新建幻燈片，添加文字、表格、視頻、音頻，等等。本文以PPT中常用的、典型的對象和操作介紹利用VB程序操作PPT的方法。

1．定義對象變量

在使用PowerPoint應(yīng)用程序之前，要定義相關(guān)的對象變量。然后通過對這些變量的操作來實現(xiàn)對PPT的操作。

Dim MyPpt As PowerPoint.Application'定義PowerPoint應(yīng)用程序?qū)ο笞兞俊?/p>

Dim M yPpr As PowerPoint.Presentation'定義PPT中演示文稿對象變量。

Dim MySlide As PowerPoint.Slide'定義PPT中演示文稿中幻燈片對象變量。

2．創(chuàng)建PPT并創(chuàng)建一張新幻燈片

在VB程序中創(chuàng)建PPT需要使用Presentations中的Add方法，其功能是創(chuàng)建一個演示文稿。

其格式：

expression.Add(W ithW indow)

其中：expression必選。該表達(dá)式返回一個Presentations集合。

W ithW indow可選，MsoTriState類型，M soTriState可以是下列M soTriState常數(shù)之一。

msoFalse新演示文稿不顯示。

msoTrue默認(rèn)值。在可視窗口中創(chuàng)建演示文稿。

如果在PPT中創(chuàng)建一張新幻燈片，則需要使用Slides的Add方法。Slides的Add方法的功能是創(chuàng)建一張新的幻燈片，并添加到指定的幻燈片集合。

其格式：expression.Add(Index,Layout)。其中，expression必選。該表達(dá)式返回一個Slides集合。

Index必選，Long類型，新幻燈片在Slides集合中的索引號。此值不能超過現(xiàn)有幻燈片數(shù)+1。如果設(shè)為1，新幻燈片將成為演示文稿的第一張幻燈片。

Layout必選。要創(chuàng)建的幻燈片類型。幻燈片類型共有29種，如：

ppLayoutTitle標(biāo)題幻燈片

ppLayoutTitleOnly僅標(biāo)題

ppLayoutTwoColumnText標(biāo)題的兩欄文本

例如創(chuàng)建一個PPT，并在其中創(chuàng)建第1張幻燈片：

Set M yPpt=CreateObject("PowerPoint.Application")

Set M yPpr=My Ppt.Presentations.Add(msoTrue)

創(chuàng)建一張新幻燈片：

Set MySlide=My Ppr.Slides.Add(1, ppLayoutChartAndText)'

MyPpt.Visible=msoTrue'新建的幻燈片可見

3．打開PPT

如果要編輯一個現(xiàn)存的PPT，首先要打開它。使用Presentations對象集合中的Open方法，可以打開一個指定的PPT。Open方法的格式[3]：

Open(FileName,ReadOnly,Untitled,W ithWindow, OpenConflictDocument)

其中：FileName必選，String類型，要打開的文件的名稱。ReadOnly可選，M soTriState類型，指定以可讀寫或只讀狀態(tài)打開演示文稿。Untitled可選，M soTriState類型，指定文件是否有標(biāo)題。W ithW indow可選，M soTriState類型，指定文件是否可見。

例如：打開一個指定的PPT。在程序窗口中添加一個CommonDialog控件，名稱為CommonDialog1。

CommonDialog1.FileName=""

CommonDialog1.Filter="演示文稿(*.ppt)|*.pp*"

CommonDialog1.ShowOpen

Set MyPpt=New PowerPoint.Application

M yPpt.Visible=msoTrue

Set MyPpr=M y Ppt.Presentations.Open (CommonDialog1.FileName)

4．導(dǎo)入文字

在PPT中，可以在占位符中顯示文字。在占位符中顯示文字要先選擇指定的占位符，然后利用TextFrame中的TextRange屬性完成導(dǎo)入文字、設(shè)置文字格式等操作。[4]

例如：向在第3張幻燈片中的第2個占位符導(dǎo)入一行文字，并設(shè)置成紅色斜體字。

Ppr.Slides(3).Shapes(2).TextFrame.TextRange="這是VB程序?qū)氲奈淖郑?

Ppr.Slides(3).Shapes(2).TextFrame.TextRange.Font.Color =RGB(255,0,0)

Ppr.Slides(3).Shapes(2).TextFrame.TextRange.Font.Italic =msoTrue

在PPT中，也可以先添加文本框，然后在其中顯示文字。添加文本框的方法是：

AddTextbox（Orientation，Left，Top，W idth，Height）

其中：

Orientation為文本的顯示方式：

msoTextOrientationHorizontal橫向顯示。

msoTextOrientationVerticalFarEast縱向顯示。

Left：文本框的左邊框與幻燈片左邊框的距離。

Top：文本框的上邊框與幻燈片上邊框的距離。

W idth：文本框的寬度。

Height：文本框的高度。

例如，在第4張幻燈片中新建一個文本框，導(dǎo)入文字并設(shè)置文字的格式。

M yPpr.Slides(4).Select

Set myDoc=M y Ppr.Slides(4)

Dim Pshape As PowerPoint.Shape

Set Pshape=myDoc.Shapes.AddTextbox (msoTextOrientationHorizontal,_

Left:=100,Top:=100,W idth:=200,Height:=50)

Pshape.TextFrame.TextRange.Text="這是一個文本框"

W ith Pshape.TextFrame.TextRange.Font

.Color.RGB=RGB(0,255,255)

.Bold=msoTrue

.Name="隸書"

.Size=14

End W ith

5．插入視頻文件

在制作PPT的過程中，人們常常使用視頻文件來豐富展示的內(nèi)容。PPT支持人們?nèi)粘Ｊ褂玫慕^大部分視頻格式，如.avi、.mov、.mp4、.wmv、.mpeg等。在PPT中插入視頻的方法是：

AddMediaObject（FileName，Left，Top，W idth，Height）

其中：

FileName：視頻文件名。

Left、Top、W idth、Height同上。

例如，在第2張幻燈片中添加一個視頻文件。在程序窗口中添加一個CommonDialog控件，名稱為CommonDialog1。

CommonDialog1.FileName=""

CommonDialog1.Filter="視頻文件(*.avi)|*.avi|*. wmv*.*"

CommonDialog1.ShowOpen MyPpr.Slides(2).Select

Set myDoc=Ppr.Slides(2)

myDoc.Shapes.AddMediaObject FileName:= CommonDialog1.FileName,_

Left:=80,Top:=80,W idth:=400,Height:=400

6．添加圖片

在PPT中加入圖片可以使演示文檔圖文并茂，豐富多彩。添加圖片的方法是：

AddPicture(FileName,LinkToFile,SaveW ithDocument, Left,Top,W idth,Height)

其中：

FileName必選，String類型，創(chuàng)建OLE對象所依據(jù)的文件。

LinkToFile必選，確定是否將圖片鏈接到創(chuàng)建該圖片所依據(jù)的文件。

SaveW ithDocument必選，確定是否將已鏈接的圖片與其插入到的文檔一起保存。如果LinkToFile為msoFalse，則此參數(shù)必須為msoTrue。

Left、Top、W idth、Height同上。

例如，在第4張幻燈片中添加一張圖片。

在程序窗口中添加一個CommonDialog控件，名稱為CommonDialog1。

CommonDialog1.FileName=""

CommonDialog1.Filter="圖片文件(*.jpg)|*.jpg|*. bmp|*.*"

CommonDialog1.ShowOpen MyPpr.Slides(4).Select

Set myDoc=Ppr.Slides(4)

myDoc.Shapes.AddPicture FileName:=CommonDialog1. FileName,LinkToFile:=msoTrue,_

SaveW ithDocument:=msoTrue,Left:=200,Top:=200,W idth:=170,Height:=170

7．插入表格

在PPT中插入表格的方法是：

AddTable(NumRows,NumColumns,Left,Top,W idth, Height)

其中：

NumRows必選。表格中的行數(shù)

NumColumns必選。表格中的列數(shù)

Left，Top，W idth，Height同上。

例如：在第5張幻燈片中插入一個3行4列的表格。MyPpr.Slides(5).Select

Set mytable=M yPpr.Slides(5).Shapes.AddTable(3,4, 100,100,240,260)

8．填充

在PPT中可以通過對占位符、形狀或文本框等的填充可以美化界面，突出重點，強調(diào)要點。完成填充工作需要使用PresetGradient方法。其格式是：

PresetGradient(Style,Variant,PresetGradientType)

其中：

Style必選。有8個過渡樣式，即填充方向。

Variant必選，是過渡變量，可以是從1到4值。對應(yīng)于“填充效果”對話框中“過渡”選項卡上的4個變量，如果“樣式”是msoGradientFrom Title或msoGradientFromCenter，此參數(shù)可以是1或2。

PresetGradientType必選，預(yù)設(shè)顏色，共有25種。

例如：填充第7張幻燈片中的第1個占位符。

MyPpr.Slides(7).Shapes(1).Fill_

.PresetGradient Style:=msoGradientDiagonalUp, Variant:=1,_

PresetGradientType:=msoTextureBlueTissuePaper

'填充的效果是線性對角彩虹出岫II

9．放映PPT

利用SlideShow Settings對象可控制PPT的放映[5]，如放映的類型、放映的范圍、是否持續(xù)循環(huán)放映、是否有旁白、是否顯示動畫、如何切換幻燈片放映、繪圖筆的顏色、放映窗口的位置和大小，等等。

例如，從第3張幻燈片開始全屏放映當(dāng)前的PPT，直到最后一張幻燈片。

W ith MyPpr.SlideShow Settings

.Show Type=ppShow TypeSpeaker

.LoopUntilStopped=msoFalse

.ShowW ithNarration=msoTrue

.ShowW ithAnimation=msoTrue

.StartingSlide=3'''從第3張開始

.EndingSlide=MyPpr.Slides.Count'''最后一張

.RangeType=ppShow SlideRange'''按指定范圍放映

.AdvanceMode=ppSlideShowUseSlideTim ings[6]

.Run

End W ith

總之，以VB程序設(shè)計語言通過編程操作M icrosoft Power Point演示文檔，大大地擴展了PPT的應(yīng)用范圍。由于PPT功能眾多，其包含的對象比較龐大，對象間的關(guān)系也比較復(fù)雜，因此，在使用這些對象時，必須搞清楚所用對象之間關(guān)系，準(zhǔn)確地設(shè)置對象的屬性，正確地使用對象的方法，才能完成指定的操作。

[1]趙連勝,馬國光.Visual Basic程序設(shè)計[M].北京:中國計劃出版社,2007:8.

[2]微軟公司.PowerPoint VBA編程手冊[A].

[3]紅漁.VB中打開Office文件的一種方法[EB/OL].(2011-11 -06)[2017-02-02].http://blog.sina.com.cn/s/blog_765098210100 tp44.htm l.

[4]顧洪,熊陽.用VB程序控制PPT演示文檔[J].無錫南洋學(xué)院學(xué)報,2003(4):30-34.

[5]sunnydanli.vb播放ppt[EB/OL].(2013-10-06)[2017-02-02]. https://zhidao.baidu.com/question/135066771872978925.htm l? qbl=relate_question_0 2016.11.16.

[6]我的異常網(wǎng).詳解vb控制ppt解決思路[EB/OL].(2014-09-06) [2017-02-02].http://www.myexception.cn/vb/111841.htm l.2013. 1.2.

[責(zé)任編輯，撫順職院：陳輝]

The Method of Operating PPT by VB Program

WANG Ai-ping，YAN Hui-cang，LIANG Chen
(Fushun Vocational Technology Institute,Fushun 113122,China)

In order to better and more flexibly use M icrosoft Power Point presentation file,it is often operated by VB language programm ing.The paper introduces methods to operate the object in Power Point presentation file by using Visual Basic 6.0 programm ing language and Active X technology.The corresponding program code is also given.

M icrosoft Power Point software;Visual Basic 6.0 software;application

TP317.4

A

1009—7600（2017）06—0079—04

2017-06-12

撫順市科技攻關(guān)項目（20131118）

王愛平（1962—），男，遼寧東溝人，工程師；閆會昌（1962—），男，遼寧撫順人，副教授；梁辰（1976—），女，山東榮成人，副教授，碩士。