PowerPoint) (TimeLine.InteractiveSequences 屬性

會傳回 Sequences 物件，代表藉由按一下指定之圖案所觸發的動畫。

語法

expression。 InteractiveSequences

運算式 代表 TimeLine 物件的變數。

傳回值

Sequences

註解

InteractiveSequences 屬性的預設值為空的 Sequences 集合。

範例

下列範例會將互動式順序新增至第一張投影片，並且設定新動畫順序的文字效果屬性。

Sub NewInteractiveSequence()

    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

另請參閱

TimeLine 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。