In diesem Beispiel werden in myDocument zwei Rechtecke eingefügt und durch eine gekrümmte Verbindung verbunden. Anschließend wird die Verbindung neu erstellt, so dass sie auf dem kürzesten Weg zwischen den beiden Rechtecken verläuft. Beachten Sie, dass die RerouteConnections-Methode Größe und Position der Verbindung anpasst und festlegt, an welchen Verbindungspunkten sie angefügt wird. Deshalb sind die Werte, die Sie anfangs für die mit den Methoden BeginConnect und EndConnect verwendeten ConnectionSite-Argumente angegebenen haben, ohne Bedeutung.
Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, _
100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, _
300, 300, 200, 100)
Set newConnector = s.AddConnector(msoConnectorCurve, _
0, 0, 100, 100)
With newConnector.ConnectorFormat
.BeginConnect firstRect, 1
.EndConnect secondRect, 1
End With
newConnector.RerouteConnections