通过

ScaleEffect.ByX 属性 (PowerPoint)

  • 项目

设置或返回 一个 表示缩放或按指定屏幕的宽度，这取决于是否其与配合使用 ScaleEffect 或 MotionEffect 的对象，分别占水平移动一个对象。 例如，值为动作效果 50 表示向右移动屏幕宽度一半的对象。 读/写。

语法

expression。 ByX

表达 一个代表 ScaleEffect 对象的变量。

返回值

单精度

备注

负数表示水平向左移动对象。 浮点数（例如 55.5）有效。

若要垂直缩放或移动对象，请使用 ByY 属性。

如果设置 ByX 和 ByY 属性，对象缩放或水平和垂直两个方向移动。

不要混淆此属性与 通过 对象的属性 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。