Свойство RotationEffect.From (PowerPoint)

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

Синтаксис

выражение. From

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

Замечания

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

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

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

Пример

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

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tlnTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animRotation As AnimationBehavior
    Dim rtnEffect As RotationEffect

    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes_
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set tlnTiming = ActivePresentation.Slides(1).TimeLine

    Set effBlinds = tlnTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)

    Set animRotation = tlnTiming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)

    Set rtnEffect = animRotation.RotationEffect

    'Sets the rotation effect starting and ending positions
    rtnEffect.From = 90
    rtnEffect.To = 270

End Sub

См. также

Объект RotationEffect

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

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