Sub StylesOutline() Dim s As Shape For Each s In ActiveSelection.Shapes If s.Outline.Type = cdrOutline Then Select Case s.Type Case cdrRectangleShape s.Outline.Style = OutlineStyles(1) Case cdrEllipseShape s.Outline.Style = OutlineStyles(2) Case cdrPolygonShape s.Outline.Style = OutlineStyles(3) End Select End If Next sEnd Sub