Object Model Reference : Classes : F : FountainFill : Properties : FountainFill.MidPoint
|
|
| Object Model Reference : Classes : F : FountainFill : Properties : FountainFill.MidPoint |
Property MidPoint As Long
Member of FountainFill
The MidPoint property returns or specifies the position of the midpoint of a simple fountain fill having no more than two colors.
The following VBA example sets the midpoint of all two-color fountain fills on the active page to 80%.
Sub Test() |
Dim s As Shape |
For Each s In ActivePage.Shapes |
If s.Fill.Type = cdrFountainFill Then |
If s.Fill.Fountain.BlendType <> cdrCustomFountainFillBlend Then |
s.Fill.Fountain.MidPoint = 80 |
End If |
End If |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.