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