返回给定动画动作的 PropertyEffect 对象。
expression.PropertyEffect
expression 必选。该表达式返回“应用于”列表中的对象之一。
以下示例向当前演示文稿添加一个带有效果的形状,然后将该形状的动画效果属性设置为更改颜色。
Sub AddShapeSetAnimFill()
Dim effBlinds As Effect
Dim shpRectangle As Shape
Dim animBlinds As AnimationBehavior
'Adds rectangle and sets animiation effect
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)
'Sets the duration of the animation
effBlinds.Timing.Duration = 3
'Adds a behavior to the animation
Set animBlinds = effBlinds.Behaviors.Add(msoAnimTypeProperty)
'Sets the animation color effect and the formula to use
With animBlinds.PropertyEffect
.Property = msoAnimColor
.From = RGB(Red:=0, Green:=0, Blue:=255)
.To = RGB(Red:=255, Green:=0, Blue:=0)
End With
End Sub