Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Outline.Type = cdrOutline Then If s.Outline.Style.Index = 1 Then s.Outline.Style = OutlineStyles(7) End If End If Next sEnd Sub