Examples:
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