Объект Effect (PowerPoint)

Представляет сведения о времени для анимации слайдов.

Пример

Используйте метод AddEffect для добавления эффекта. В этом примере к первому слайду активной презентации добавляется фигура, а к фигуре добавляется эффект и поведение.

Sub NewShapeAndEffect()

    Dim shpStar As Shape

    Dim sldOne As Slide

    Dim effNew As Effect



    Set sldOne = ActivePresentation.Slides(1)

    Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _

        Left:=150, Top:=72, Width:=400, Height:=400)

    Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _

        EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)

    With effNew

        With .Behaviors.Add(msoAnimTypeScale).ScaleEffect

            .FromX = 75

            .FromY = 75

            .ToX = 0

            .ToY = 0

        End With

        .Timing.AutoReverse = msoTrue

    End With

End Sub

Чтобы ссылаться на существующий объект Effect , используйте метод MainSequence(index), где index — это номер объекта Effect в коллекции Sequence . В этом примере изменяется эффект для первой последовательности и указывается поведение для этого эффекта.

Sub ChangeEffect()

    With ActivePresentation.Slides(1).TimeLine _

        .MainSequence(1)

        .EffectType = msoAnimEffectSpin

        With .Behaviors(1).RotationEffect

            .From = 100

            .To = 360

            .By = 5

        End With

    End With

End Sub

Методы

Имя
Delete
MoveAfter
MoveBefore
MoveTo

Свойства

Имя
Приложение
Behaviors
DisplayName
EffectInformation
EffectParameters
EffectType
Выход
Index
Абзац
Parent
Shape
TextRangeLength
TextRangeStart
Время

См. также

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

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

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