Свойство TimeLine.InteractiveSequences (PowerPoint)

Статья
04/07/2023

Возвращает объект Sequences , представляющий анимации, которые активируются щелчком указанной фигуры.

Синтаксис

выражение. InteractiveSequences

Выражение Переменная, представляющая объект TimeLine .

Возвращаемое значение

Последовательности

Замечания

Значением по умолчанию свойства 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 и обратная связь.

Поделиться через