свойство RotationEffect.To (PowerPoint)

Задает или возвращает объект Single , представляющий конечный поворот объекта в градусах, указанных относительно экрана (например, 90 градусов полностью по горизонтали). Для чтения и записи.

Синтаксис

выражение. To

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

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

Одинарное с плавающей точкой

Замечания

Используйте это свойство в сочетании со свойством From для перехода с одного угла поворота на другой.

Значение по умолчанию — Empty, в этом случае используется текущее положение объекта.

Не путайте это свойство со свойствами ToX или ToY объектов ScaleEffect и MotionEffect , которые используются только для масштабирования или эффектов движения.

Пример

В следующем примере добавляется эффект поворота и сразу же изменяется угол поворота с 90 градусов на 270 градусов.

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tmlTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animColor As AnimationBehavior
    Dim rtnEffect As RotationEffect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes(1)
    Set tmlTiming = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)
    Set animColor = tmlTiming.MainSequence(1).Behaviors.Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animColor.RotationEffect
    rtnEffect.From = 90
    rtnEffect.To = 270

End Sub

См. также

Объект RotationEffect

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

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