Object Model Reference : Classes : E : EffectContour : Properties : EffectContour.Offset
|
|
| Object Model Reference : Classes : E : EffectContour : Properties : EffectContour.Offset |
Property Offset As Double
Member of EffectContour
The Offset property returns or specifies the offset distance, in document units, between contour lines in a contour effect. This automatically adjusts the number of contour steps.
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.