EffectParameters Object
Effect EffectParameters ColorFormat |
Represents various animation parameters for an Effect object, such as colors, fonts, sizes, and directions.
Using the EffectParameters object
Use the EffectParameters property of the Effect object to return an EffectParameters object. The following example creates a shape, sets a fill effect, and changes the starting and ending fill colors.
Sub effParam()
Dim shpNew As Shape
Dim effNew As Effect
Set shpNew = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeHeart, Left:=100, _
Top:=100, Width:=150, Height:=150)
Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpNew, EffectID:=msoAnimEffectChangeFillColor, _
Trigger:=msoAnimTriggerAfterPrevious)
With effNew.EffectParameters
.Color1.RGB = RGB(Red:=0, Green:=0, Blue:=255)
.Color2.RGB = RGB(Red:=255, Green:=0, Blue:=0)
End With
End Sub
Properties | Amount Property | Application Property | Color2 Property | Direction Property | FontName Property | Parent Property | Relative Property | Size Property
Parent Objects | Effect Object
Child Objects | ColorFormat Object