Beispiel zur BeginConnectedShape-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. Der Anfang der neuen Verbindung wird demselben Verbindungspunkt zugeordnet wie der Anfang der Verbindung "Verb1mit2". Das Ende der neuen Verbindung wird dem ersten Verbindungspunkt auf dem neuen Rechteck zugeordnet.

Set myDocument = Worksheets(1)
With myDocument.Shapes
    Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)
    .AddConnector(msoConnectorCurve, 0, 0, 10, 10).Name = _
        "Conn1To3"
    With .Item("Conn1To2").ConnectorFormat
        beginConnSite1 = .BeginConnectionSite
        Set beginConnShape1 = .BeginConnectedShape
    End With
    With .Item("Conn1To3").ConnectorFormat
        .BeginConnect beginConnShape1, beginConnSite1
        .EndConnect r3, 1
    End With
End With