Object Model Reference : Classes : F : Fill : Properties : Fill.Fountain |
Property Fountain As FountainFill
Member of Fill
The Fountain property returns a FountainFill object that represents the settings for a fountain fill.
The following VBA example unlocks the fountain steps for all shapes on a page.
Sub Test() |
Dim s As Shape |
For Each s In ActivePage.Shapes |
If s.Fill.Type = cdrFountainFill Then |
If s.Fill.Fountain.Steps <> 0 Then |
s.Fill.Fountain.Steps = 0 |
End If |
End If |
Next s |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.