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

Задает или возвращает значение Single , представляющее поворот объекта на указанное число градусов; например, значение 180 означает поворот объекта на 180 градусов. Для чтения и записи.

Синтаксис

выражение. By

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

Замечания

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

Если свойства By и To заданы для эффекта поворота, значение свойства By игнорируется.

Числа с плавающей запятой (например, 55,5) допустимы, а отрицательные — нет.

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

Пример

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

Sub AddAndChangeRotationEffect()
    Dim effBlinds As Effect
    Dim tmlnShape As TimeLine
    Dim shpShape As Shape
    Dim animBehavior As AnimationBehavior
    Dim rtnEffect As RotationEffect

    'Sets shape, timing, and effect
    Set shpShape = ActivePresentation.Slides(1).Shapes(1)
    Set tmlnShape = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlnShape.MainSequence.AddEffect _
        (Shape:=shpShape, effectId:=msoAnimEffectBlinds)

    'Adds animation behavior and sets rotation effect
    Set animBehavior = tmlnShape.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animBehavior.RotationEffect

    rtnEffect.By = 270
End Sub

См. также

Объект RotationEffect

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

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