Fill.Fountain

Property Fountain As FountainFill

Member of Fill

The Fountain property returns a FountainFill object that represents the properties of a fountain fill.

The following code example unlocks the fountain steps for all shapes on the 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 2007 Corel Corporation. All rights reserved.