Object Model Reference : Classes : F : FountainColor : Properties : FountainColor.Position
|
|
| Object Model Reference : Classes : F : FountainColor : Properties : FountainColor.Position |
Property Position As Long
Member of FountainColor
The Position property returns the position of a color point in a fountain fill. Valid positions range from 1 to 99.
The Position property returns a read-only value.
The following VBA example deletes any color point with a position located at a distance greater than 50%.
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 |
If cl.Position > 50 Then cl.Delete |
Next cl |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.