Object Model Reference : Classes : F : FountainColor : Properties : FountainColor.Color |
Property Color As Color
Member of FountainColor
The Color property returns a Color object that represents color information about the color point in a fountain fill.
For a fountain transparency, the color is always grayscale.
The following VBA example converts all colors in the fountain fill to grayscale.
Sub Test() |
Dim cl As FountainColor |
If ActiveShape.Fill.Type <> cdrFountainFill Then |
MsgBox "The selected shape must have a fountain fill." |
Exit Sub |
End If |
For Each cl In ActiveShape.Fill.Fountain.Colors |
cl.Color.ConvertToGray |
Next cl |
ActiveShape.Fill.Fountain.StartColor.ConvertToGray |
ActiveShape.Fill.Fountain.EndColor.ConvertToGray |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.