ShapeRange.ClearEffect

Sub ClearEffect(Type As cdrEffectType)

The ClearEffect method removes effects from the shapes in the shape range.


Parameters	Description
Type	Specifies the type of effect to remove

The following code example removes the contour effect from all rectangles:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(2, 2, 4, 4) 
 s.Fill.ApplyUniformFill CreateRGBColor(255, 0, 0) 
 s.CreateContour cdrContourOutside 
 Set s = ActiveLayer.CreateRectangle2(1, 4, 5, 5) 
 s.Fill.ApplyUniformFill CreateRGBColor(0, 255, 0) 
 s.CreateContour cdrContourInside 
 ActivePage.FindShapes(, cdrRectangleShape).CreateSelection 
 ActiveSelection.ClearEffect cdrContour 
End Sub