Beispiel zur EndConnectedShape-Eigenschaft

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