ScaleEffect 属性

返回给定动画动作的 ScaleEffect 对象。

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

示例

本示例对第一张幻灯片中的第一个形状进行缩放，该形状由零开始增长至其初始大小的 100%。

Sub ChangeScale()

    Dim shpFirst As Shape
    Dim effNew As Effect
    Dim aniScale As AnimationBehavior

    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpFirst, effectId:=msoAnimEffectCustom)
    Set aniScale = effNew.Behaviors.Add(msoAnimTypeScale)

    With aniScale.ScaleEffect

        'Starting size
        .FromX = 0
        .FromY = 0

        'Size after scale effect
        .ToX = 100
        .ToY = 100
    End With
End Sub