文档名称：

PPT制作方法大全.doc

文档介绍：PPT中方法大全


Activate 方法
激活指定对象。
expression.Activate
expression 必选。该表达式返回一个 DocumentWindow、Pane、OLEFormat、Application 或 SlideShowWindow 对象。
示例Windows(2).Activate
AddBaseline 方法
向演示文稿中添加一条基准线以便将来合并演示文稿时可以跟踪更改。
expression.AddBaseline(FileName)
示例以下代码行将基准线添加到当前演示文稿中。
Sub SetBaseline()
ActivePresentation.AddBaseline
End Sub
AddCallout 方法
创建一个无边框的线形标注。返回一个代表新标注的 Shape 对象。
expression.AddCallout(Type, Left, Top, Width, Height)
expression 必选。该表达式返回“应用于”列表中的对象之一。
通过使用 AddShape 方法可插入多种不同的标注。
示例
本示例在 myDocument 中添加一个无边框标注（此标注带有一个可自由旋转的单段标注线），并且将标注角度设为 30 度。
Sub NewCallout()
Dim sldOne As Slide
Set sldOne = ActivePresentation.Slides(1)
sldOne.Shapes.AddCallout(Type:=msoCalloutTwo, Left:=50, Top:=50, _
Width:=200, Height:=100).Callout.Angle = msoCalloutAngle30

End Sub
AddComment 方法
添加一个批注。返回一个代表新批注的 Shape 对象。
示例
本示例向 myDocument 中添加包含文本“Test Comment”的批注。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddComment(100, 100, 150, 150)
.TextFrame.TextRange.Text = .TextFrame _
.TextRange.Text + "Test Comment"
End With
AddConnector 方法
创建一个连接符。返回一个代表新连接符的 Shape 对象。添加一个连接符时，它没有连接到任何对象。使用 BeginConnect 和 EndConnect 方法可将连接符的头和尾连接到文档中的其他形状上。
expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)
expression 必选。该表达式返回“应用于”列表中的对象之一。
说明
将一个连接符连接到某个形状时，如果必要，该连接符的长度和位置会自动调整。因此，如果要将一个连接符连接到其他形状，则与添加该连接符时指定的位置和长度无关。
AddCurve 方法
创建一条贝塞尔曲线。返回一个代