Sub Test() Dim sr As ShapeRange Set sr = ActivePage.FindShapes(, cdrEllipseShape) sr.SetOutlinePropertiesEx 0.15, Justification: = cdrOutlineJustificationOutsideEnd Sub