In diesem Beispiel werden in myDocument alle Verbindungen gelöscht.
Set myDocument = Worksheets(1) With myDocument.Shapes For i = .Count To 1 Step -1 With .Item(i) If .Connector Then .Delete End With Next End With