Paragraph Property

Returns or sets a Long that represents the paragraph in a text range to which to apply animation effects. Read/write.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds a shape with text and animates the second and fourth paragraphs in the shape.

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