ShapeRange.RerouteConnections-Methode (Publisher)

Artikel
04/07/2023

Leitet Connectors, damit sie den kürzesten möglichen Weg zwischen den Shapes nutzen, die sie verbinden. Dazu kann die RerouteConnections -Methode die Enden einer Verbindung trennen und sie an anderen Verbindungspunkten der verbundenen Formen anfügen.

Syntax

Ausdruck. RerouteConnections

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

Nichts

Bemerkungen

Mit dieser Methode werden alle Verbindungen mit der angegebenen Form neu erstellt. Ist die angegebene Form verbunden, so wird die Verbindung neu erstellt.

Beispiel

In dem folgenden Beispiel werden zwei Rechtecke zur ersten Seite der aktiven Publikation hinzugefügt und durch eine gekrümmte Verbindung miteinander verbunden. Beachten Sie, dass die RerouteConnections-Methode die Werte überschreibt, die Sie für die ConnectionSite-Argumente angeben, die mit den Methoden BeginConnect und EndConnect verwendet werden.

Dim shpRect1 As Shape 
Dim shpRect2 As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 
 ' Add two new rectangles. 
 Set shpRect1 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
 Set shpRect2 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 
 
 ' Add a new curved connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 
 ' Connect the new connector to the two rectangles. 
 .BeginConnect ConnectedShape:=shpRect1, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpRect2, ConnectionSite:=1 
 
 ' Reroute the connector to create the shortest path. 
 .Parent.RerouteConnections 
 End With 
 
End With

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über