Свойство ScaleEffect.ByX (PowerPoint)

Задает или возвращает объект Single , представляющий масштабирование или перемещение объекта по горизонтали на заданный процент ширины экрана в зависимости от того, используется ли объект в сочетании с объектом ScaleEffect или MotionEffect соответственно. Например, значение 50 для эффекта движения означает перемещение объекта в половину ширины экрана вправо. Для чтения и записи.

Синтаксис

выражение. ByX

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

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

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

Замечания

Отрицательные числа перемещают объект горизонтально влево. Допускаются числа с плавающей запятой (например, 55,5).

Чтобы масштабировать или переместить объект по вертикали, используйте свойство ByY .

Если заданы свойства ByX и ByY , объект масштабируется или перемещается как по горизонтали, так и по вертикали.

Не путайте это свойство со свойством By объектов ColorEffect, RotationEffect или PropertyEffect , которые используются для задания цветов, поворотов или других свойств анимации соответственно.

Пример

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

Sub AddMotionPath()

    Dim effCustom As Effect
    Dim animBehavior As AnimationBehavior
    Dim shpRectangle As Shape

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

    Set effCustom = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpRectangle, _
         effectId:=msoAnimEffectCustom)

    Set animBehavior = effCustom.Behaviors.Add(msoAnimTypeMotion)

    'Specifies animation motion
    With animBehavior.MotionEffect
        .ByX = 50
        .ByY = 50
    End With

End Sub

См. также

Объект ScaleEffect

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

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