Object Model Reference : Classes : E : EffectContour : Properties : EffectContour.Steps
|
|
| Object Model Reference : Classes : E : EffectContour : Properties : EffectContour.Steps |
Property Steps As Long
Member of EffectContour
The Steps property returns or specifies the number of steps in a contour effect.
The following VBA example checks all contours on the current page and changes them as follows: all outside contours are to have twice as many steps, and all inside contours are to have a step distance of half of the previous size. The contours to the center of the shape are left unchanged.
Sub Test() |
Dim s As Shape, eff As Effect |
For Each s In ActivePage.Shapes |
For Each eff In s.Effects |
If eff.Type = cdrContour Then |
Select Case eff.Contour.Direction |
Case cdrContourOutside |
eff.Contour.Steps = eff.Contour.Steps * 2 |
Case cdrContourInside |
eff.Contour.Offset = eff.Contour.Offset / 2 |
Case cdrContourToCenter |
' Do nothing |
End Select |
End If |
Next eff |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.