|
|
PropertyEffect 对象
代表 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
|
|
