ShapeRange.ApplyNoFill

Sub ApplyNoFill()

Member of ShapeRange

The ApplyNoFill method removes the fill from each shape in the range.

The following code example removes all of the fountain fills on the page:

Sub Test() 
 Dim sr As New ShapeRange 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Fill.Type = cdrFountainFill Then sr.Add s 
 Next s 
 sr.ApplyNoFill 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.