Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Beispiel zur BeginConnect-Methode

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