Object Model Reference : Classes : F : FountainFill : Properties : FountainFill.Colors
|
|
| Object Model Reference : Classes : F : FountainFill : Properties : FountainFill.Colors |
Property Colors As FountainColors
Member of FountainFill
The Colors property returns the FountainColors collection, which represents all color points of a fountain fill.
The element with an index value of 0 represents the starting color point of the fountain fill. The last element (Count+1) is the last color point of the fill.
The following VBA example converts all colors of fountain fills in shapes to grayscale.
Sub Test() |
Dim s As Shape |
Dim ff As FountainFill |
Dim i As Long |
For Each s In ActivePage.Shapes |
If s.Fill.Type = cdrFountainFill Then |
Set ff = s.Fill.Fountain |
For i = 0 To ff.Colors.Count + 1 |
ff.Colors(i).Color.ConvertToGray |
Next i |
End If |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.