王愛(ài)平，閆會(huì)昌，梁辰

VB程序操作PPT的方法

王愛(ài)平，閆會(huì)昌，梁辰

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

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

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

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

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

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

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

其中：

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

●DocumentWindows集合成員。DocumentW indows集合包含全部打開(kāi)的文檔窗口。其中所包含的DocumentWindow對(duì)象代表一個(gè)文檔窗口。[2]

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

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

●Slide對(duì)象代表一個(gè)幻燈片。[2]

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

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

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

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

三、操作PPT的方法

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

1．定義對(duì)象變量

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

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

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

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

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

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

其格式：

expression.Add(W ithW indow)

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

W ithW indow可選，MsoTriState類(lèi)型，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á)式返回一個(gè)Slides集合。

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

Layout必選。要?jiǎng)?chuàng)建的幻燈片類(lèi)型。幻燈片類(lèi)型共有29種，如：

ppLayoutTitle標(biāo)題幻燈片

ppLayoutTitleOnly僅標(biāo)題

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

例如創(chuàng)建一個(gè)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'新建的幻燈片可見(jiàn)

3．打開(kāi)PPT

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

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

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

例如：打開(kāi)一個(gè)指定的PPT。在程序窗口中添加一個(gè)CommonDialog控件，名稱(chēng)為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個(gè)占位符導(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張幻燈片中新建一個(gè)文本框，導(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="這是一個(gè)文本框"

W ith Pshape.TextFrame.TextRange.Font

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

.Bold=msoTrue

.Name="隸書(shū)"

.Size=14

End W ith

5．插入視頻文件

在制作PPT的過(guò)程中，人們常常使用視頻文件來(lái)豐富展示的內(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張幻燈片中添加一個(gè)視頻文件。在程序窗口中添加一個(gè)CommonDialog控件，名稱(chēng)為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類(lèi)型，創(chuàng)建OLE對(duì)象所依據(jù)的文件。

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

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

Left、Top、W idth、Height同上。

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

在程序窗口中添加一個(gè)CommonDialog控件，名稱(chēng)為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張幻燈片中插入一個(gè)3行4列的表格。MyPpr.Slides(5).Select

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

8．填充

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

PresetGradient(Style,Variant,PresetGradientType)

其中：

Style必選。有8個(gè)過(guò)渡樣式，即填充方向。

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

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

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

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

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

PresetGradientType:=msoTextureBlueTissuePaper

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

9．放映PPT

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

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

W ith MyPpr.SlideShow Settings

.Show Type=ppShow TypeSpeaker

.LoopUntilStopped=msoFalse

.ShowW ithNarration=msoTrue

.ShowW ithAnimation=msoTrue

.StartingSlide=3'''從第3張開(kāi)始

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

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

.AdvanceMode=ppSlideShowUseSlideTim ings[6]

.Run

End W ith

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

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

[2]微軟公司.PowerPoint VBA編程手冊(cè)[A].

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

[4]顧洪,熊陽(yáng).用VB程序控制PPT演示文檔[J].無(wú)錫南洋學(xué)院學(xué)報(bào),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)項(xiàng)目（20131118）

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