InteractiveSequences 属性

       

返回 Sequences 对象,该对象代表由单击指定形状触发的动画。

expression.InteractiveSequences

expression  必选。该表达式返回一个 TimeLine 对象。

说明

InteractiveSequences 属性的默认值为一个空 Sequences 集合。

示例

以下示例在第一张幻灯片中添加一个交互式序列并设置新动画序列的文本效果属性。

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