Объект Sequences (PowerPoint)

Представляет коллекцию объектов Sequence . Используйте объект Sequence для добавления, поиска, изменения и клонирования эффектов анимации.

Пример

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

Sub AddNewSequence()

    Dim shp1 As Shape
    Dim shp2 As Shape
    Dim interEffect As Effect

    Set shp1 = ActivePresentation.Slides(1).Shapes.AddShape _
        (Type:=msoShape32pointStar, Left:=100, _
        Top:=100, Width:=200, Height:=200)

    Set shp2 = ActivePresentation.Slides(1).Shapes.AddShape _
        (Type:=msoShapeBevel, Left:=400, _
        Top:=200, Width:=150, Height:=100)

    With ActivePresentation.Slides(1).TimeLine.InteractiveSequences.Add(1)
        Set interEffect = .AddEffect(shp2, msoAnimEffectBlinds, _
            trigger:=msoAnimTriggerOnShapeClick)
        interEffect.Shape = shp1
    End With

End Sub

См. также

Справочник по объектной модели PowerPoint

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.