Object Model Reference : Classes : E : EffectZipperDistortion : Properties : EffectZipperDistortion.Smooth |
Property Smooth As Boolean
Member of EffectZipperDistortion
The Smooth property returns or specifies whether the wave peaks are smooth in a Zipper distortion effect.
The following VBA example selects all shapes having a Zipper distortion effect that is smooth, random, and not local.
Sub Test() |
Dim s As Shape, eff As Effect, zip As EffectZipperDistortion |
Dim sr As New ShapeRange |
For Each s In ActivePage.Shapes |
For Each eff In s.Effects |
If eff.Type = cdrDistortion Then |
If eff.Distortion.Type = cdrDistortionZipper Then |
Set zip = eff.Distortion.Zipper |
If zip.Smooth And zip.Random And Not zip.Local Then sr.Add s |
End If |
Exit For |
End If |
Next eff |
Next s |
sr.CreateSelection |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.