43、Microsoft PowerPoint Visual Basic 属性详解

Microsoft PowerPoint Visual Basic 属性详解

1. 位置与大小相关属性

1.1 ToX 和 ToY 属性

ToX 属性用于设置或返回一个单精度浮点数，表示 ScaleEffect 或 MotionEffect 对象的结束宽度或水平位置，以屏幕宽度的百分比表示，可读写。ToY 属性则用于设置或返回表示结束高度或垂直位置的单精度浮点数，同样以屏幕宽度的百分比表示，也是可读写的。

这两个属性的默认值为空，此时将使用对象的当前位置。可以结合 FromX 和 FromY 属性来调整对象的大小或使其从一个位置移动到另一个位置。需要注意的是，不要将这两个属性与 ColorEffect、RotationEffect 或 PropertyEffect 对象的 To 属性混淆，后者分别用于设置或更改动画行为的颜色、旋转或其他属性。

以下是设置动画路径并指定起始和结束水平、垂直位置的示例代码：

Sub AddMotionPath()
    Dim effCustom As Effect
    Dim animMotion As AnimationBehavior
    Dim shpRectangle As Shape
    '添加形状并设置效果和动画属性
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)