Question

AnimationBehavior PropertyEffect AnimationPoints

代表 AnimationBehavior 对象的属性效果。

使用 PropertyEffect 对象

使用 AnimationBehavior 对象的 PropertyEffect 属性返回 PropertyEffect 对象。以下示例引用指定动画动作的属性效果。

ActivePresentation.Slides(1).TimeLine.MainSequence.Item(1) _
   .Behaviors(1).PropertyEffect

使用 Points 属性访问特定动画动作的动画点。如果希望只更改动画动作的两种状态，请使用 From 和 To 属性。以下示例向幻灯片中添加一个新形状，并设置属性效果以将填充颜色动画显示为从蓝到红。

Sub AddShapeSetAnimFill()

    Dim effBlinds As Effect
    Dim shpRectangle As Shape
    Dim animProperty As AnimationBehavior

    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds)

    effBlinds.Timing.Duration = 3

    Set animProperty = effBlinds.Behaviors.Add(msoAnimTypeProperty)

    With animProperty.PropertyEffect
        .Property = msoAnimColor
        .From = RGB(Red:=0, Green:=0, Blue:=255)
        .To = RGB(Red:=255, Green:=0, Blue:=0)
    End With

End Sub