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

Объект 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 и обратная связь.