FountainFill.MidPoint

Property MidPoint As Long

Member of FountainFill

The MidPoint property returns or sets the position of the midpoint of a simple fountain fill with no more than two colors.

The following code 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 2007 Corel Corporation. All rights reserved.