Paragraph 属性

       

返回或设置表示文本范围内应用动画效果的段落的 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