Метод Effect.MoveTo (PowerPoint)

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

Синтаксис

выражение. MoveTo( _toPos_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
toPos	Обязательный	Long	Позиция индекса, в которую перемещается эффект анимации.

Пример

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

Sub MoveEffect()

    Dim sldFirst as Slide
    Dim shpFirst As Shape
    Dim effAdd As Effect

    Set sldFirst = ActivePresentation.Slides(1)
    Set shpFirst = sldFirst.Shapes(1)
    Set effAdd = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlinds)

    effAdd.MoveTo toPos:=2

End Sub

В этом примере второй слайд активной презентации перемещается на первый.

Sub MoveSlideToNewLocation()
    ActivePresentation.Slides(2).MoveTo toPos:=1
End Sub

См. также

Объект Effect

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

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