Color2 Property
Returns a ColorFormat object that represents the color on which to end a color-cycle animation.
expression.Color2
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
The Color1 property returns the color from which to start.
Example
The following example adds a shape, adds a fill animation to that shape, then reports the starting and ending fill colors.
Sub SetStartEndColors()
Dim effChangeFill As Effect
Dim shpCube As Shape
Dim a As AnimationBehavior
'Adds cube and set fill effect
Set shpCube = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeCube, Left:=300, _
Top:=300, Width:=100, Height:=100)
Set effChangeFill = ActivePresentation.Slides(1).TimeLine _
.MainSequence.AddEffect(Shape:=shpCube, _
effectId:=msoAnimEffectChangeFillColor)
'Sets duration of effect and displays a message containing
'the starting and ending colors for the fill effect
effChangeFill.Timing.Duration = 3
MsgBox "Start Color = " & effChangeFill.EffectParameters _
.Color1 & vbCrLf & "End Color = " & effChangeFill _
.EffectParameters.Color2
End Sub