PowerPoint VBA教程:ByY属性

设置或返回 Single 类型值,该值代表按指定的屏幕宽度百分比垂直缩放或移动对象,它取决于MotionEffect对象是与ScaleEffect 联合使用,还是分别使用。可读写。

expression.ByY

expression  必选。该表达式返回“应用于”列表中的对象之一。

说明

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

若要水平缩放或移动对象,请使用ByX属性。

如果同时设置 ByX 和 ByY属性,则可以在水平和垂直两个方向缩放或移动对象。

请勿将此属性与ColorEffectRotationEffectPropertyEffect对象的By属性相混淆,它们分别用于设置动画动作的颜色、旋转或其他属性。

VBA示例

以下示例添加了一个动画路径;然后设置形状在水平和垂直方向上的移动。


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

上页:PowerPoint VBA教程:ByX属性 下页:PowerPoint VBA教程:Callout属性

PowerPoint VBA教程:ByY属性

PowerPoint VBA教程:Callout属性 PowerPoint VBA教程:Caption属性
PowerPoint VBA教程:Cells属性 PowerPoint VBA教程:Character属性
PowerPoint VBA教程:ChartUnitEffect属性 PowerPoint VBA教程:CheckIfOfficeIsHTMLEditor属性
PowerPoint VBA教程:Child属性 PowerPoint VBA教程:Children属性
PowerPoint VBA教程:ChildShapeRange属性 PowerPoint VBA教程:Collate属性
PowerPoint VBA教程:Color属性 PowerPoint VBA教程:Color1 Property
PowerPoint VBA教程:Color2属性 PowerPoint VBA教程:ColorEffect属性
PowerPoint VBA教程:ColorScheme属性 PowerPoint VBA教程:ColorSchemes属性
PowerPoint VBA教程:ColorType属性 PowerPoint VBA教程:Columns属性
PowerPoint VBA教程:COMAddIns属性 PowerPoint VBA教程:CommandBars属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号