In diesem Beispiel wird davon ausgegangen, dass myDocument bereits zwei Formen enthält, denen die Verbindung "Verb1mit2" zugeordnet ist. Der Code fügt in myDocument ein Rechteck sowie eine Verbindung ein. Das Ende der neuen Verbindung wird demselben Verbindungspunkt zugeordnet wie das Ende der Verbindung "Verb1mit2". Der Anfang der neuen Verbindung wird dem ersten Verbindungspunkt auf dem neuen Rechteck zugeordnet.
Set myDocument = Worksheets(1) With myDocument.Shapes Set r3 = .AddShape(msoShapeRectangle, _ 100, 420, 200, 100) With .Item("Conn1To2").ConnectorFormat endConnSite1 = .EndConnectionSite Set endConnShape1 = .EndConnectedShape End With With .AddConnector(msoConnectorCurve, _ 0, 0, 10, 10).ConnectorFormat .BeginConnect r3, 1 .EndConnect endConnShape1, endConnSite1 End With End With