制作方法大全..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 方法 创建一条贝塞尔曲线。返回一个代表新曲线的 Shape 对象。 expression.AddCurve(SafeArrayOfPoints) expression 必选。该表达式返回“应用于”列表中的对象之一。 SafeArrayOfPoints 必选。Variant 类型。表示一个坐标数值对数组，该数组指定曲线的顶点和控制点。指定的第一个点为起始顶点，随后的两个点为第一个贝塞尔段的控制点。然后，曲线每增加一个段，要为其指定一个顶点和两个控制点。最后指定的点为该曲线的结束顶点。请注意，必须指定 3n + 1 个点，其中 n 为曲线的段数。 示例 AddDiagram 方法 返回一个 Shape 对象，该对象代表添加到幻灯片、幻灯片母版或幻灯片范围中的一个图示。 expression.AddDiagram(Type, Left, Top, Width, Height) expression 必选。该表达式返回“应用于”列表中的对象之一。 AddEffect 方法 返回一个 Effect 对象，该对象代表一个已添加到动画效果序列中的新动画效果。 expression.AddEffect(Shape, effectId, Level, trigger, Index) expression 必选。该表达式返回“应用于”列表中的对象之一。 Shape 必选。Shape 对象。添加动画效果的形状。 effected 创建一个标签。返回一个代表新标签的 Shape 对象。 AddLine 方法 创建线条。返回一个代