Метод Sequence.AddEffect (PowerPoint)

Возвращает объект Effect , представляющий новый эффект анимации, добавленный в последовательность эффектов анимации.

Синтаксис

выражение. AddEffect( _Shape_, _effectId_, _Level_, _trigger_, _Index_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Shape	Обязательный	Shape	Фигура, к которой добавляется эффект анимации.
effectId	Обязательный	MsoAnimEffect	Применяемый эффект анимации.
Level	Необязательный	MsoAnimateByLevel	Для диаграмм, схем или текста — уровень, к которому будет применен эффект анимации. Значение по умолчанию — msoAnimationLevelNone.
триггер	Необязательный	MsoAnimTriggerType	Действие, которое активирует эффект анимации. Значение по умолчанию — msoAnimTriggerOnPageClick.
Индекс;	Необязательный	Long	Позиция, в которой эффект будет помещен в коллекцию эффектов анимации. Значение по умолчанию — -1 (добавляется в конец).

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

Эффект

Пример

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

Sub AddBouncingAnimation()

    Dim sldActive As Slide
    Dim shpSelected As Shape

    Set sldActive = ActiveWindow.Selection.SlideRange(1)
    Set shpSelected = ActiveWindow.Selection.ShapeRange(1)

    ' Add a bouncing animation.
    sldActive.TimeLine.MainSequence.AddEffect _
        Shape:=shpSelected, effectId:=msoAnimEffectBounce

End Sub

См. также

Объект Sequence

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

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