EffectContour.Steps

Property Steps As Long

The Steps property returns or sets the number of steps in a contour effect.

The following code 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