Shape.Fill

Property Fill As Fill

Member of Shape

The Fill property returns a Fill object that represents the fill properties of a shape.

The following code example creates a rectangle and applies a fountain fill that progresses from red to yellow:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) 
 s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), 
CreateRGBColor(255, 255, 0) 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.