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 sEnd Sub