Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.ApplyNoFill
|
|
| Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.ApplyNoFill |
Sub ApplyNoFill()
Member of ShapeRange
The ApplyNoFill method removes the fill from each shape in a shape range.
The following VBA example removes all 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 2013 Corel Corporation. All rights reserved.