The Type property lets you remove an outline or check whether an outline is available for a shape. The Type property returns a value of cdrOutlineType.
Examples:
The following VBA example removes the outline from the selected shape.
Sub Test()
ActiveShape.Outline.Type = cdrNoOutline
End Sub Sub Test()
If ActiveShape.Outline.Type = cdrNoOutline Then
ActiveShape.Outline.Width = 0.1
End If
End Sub