In diesem Beispiel werden in myDocument zwei Rechtecke eingefügt und durch eine gekrümmte Verbindung miteinander verbunden. Beachten Sie, dass es auf Grund der RerouteConnections-Methode unerheblich ist, welche Werte Sie für das ConnectionSite-Argument der Methoden BeginConnect und EndConnect angeben.
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 c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) with c.ConnectorFormat .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 c.RerouteConnections End With