Question

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