InteractiveSequences Property

expression.InteractiveSequences

expression    Required. An expression that returns a TimeLine object.

Remarks

The default value of the InteractiveSequences property is an empty Sequences collection.

Example

The following example adds an interactive sequence to the first slide and sets the text effect properties for the new animation sequence.

Sub NewInteractiveSeqence()
    Dim seqInteractive As Sequence
    Dim shpText As Shape
    Dim effText As Effect

    Set seqInteractive = ActivePresentation.Slides(1).TimeLine _
        .InteractiveSequences.Add(1)
    Set shpText = ActivePresentation.Slides(1).Shapes(1)
    Set effText = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpText, _
        EffectId:=msoAnimEffectChangeFont, _
        Trigger:=msoAnimTriggerOnPageClick)

    effText.EffectParameters.FontName = "Broadway"

    seqInteractive.ConvertToTextUnitEffect Effect:=effText, _
        UnitEffect:=msoAnimTextUnitEffectByWord

End Sub