Shape.Outline

Property Outline As Outline

Member of Shape

The Outline property returns an Outline object that represents the outline properties of a shape.

The Outline property returns a read-only value.

The following code example applies a 0.1" wide outline to the selected object if it does not already have an outline:

Sub Test() 
 If ActiveShape.Outline.Type = cdrNoOutline Then 
  ActiveShape.Outline.Width = 0.1 
 End If 
End Sub