Applies To
Shape object, ShapeRangecollection object.DescriptionTrue if the specified shape is a connector. Read-only Long.
Example
This example deletes all connectors on myDocument.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
For i = .Count To 1 Step -1
With .Item(i)
If .Connector Then .Delete
End With
Next
End With