返回或设置表示文本范围内应用动画效果的段落的 Long 类型值。可读写。
expression.Paragraph
expression 必选。该表达式返回“应用于”列表中的对象之一。
本示例添加带有文本的形状,并动画显示形状中的第二和第四段。
Sub AnimateParagraphTwo()
Dim shpStar As Shape
Dim effOne As Effect
Dim effTwo As Effect
Dim intCount As Integer
With ActivePresentation.Slides(1)
Set shpStar = .Shapes.AddShape(Type:=msoShape5pointStar, _
Left:=150, Top:=72, Width:=400, Height:=400)
Set effOne = .TimeLine.MainSequence _
.AddEffect(Shape:=shpStar, _
EffectId:=msoAnimEffectStretchy, _
Trigger:=msoAnimTriggerAfterPrevious)
Set effTwo = .TimeLine.MainSequence _
.AddEffect(Shape:=shpStar, _
EffectId:=msoAnimEffectSpinner, _
Trigger:=msoAnimTriggerAfterPrevious)
End With
For intCount = 1 To 5
shpStar.TextFrame.TextRange _
.InsertAfter "This is a test." & vbCrLf
Next intCount
effOne.Paragraph = 2
effTwo.Paragraph = 4
End Sub