Méthode Shape.RerouteConnections (Publisher)

Redirige les connecteurs afin qu'ils prennent le chemin le plus court possible entre les formes qu'ils se connectent. Pour ce faire, utilisez la méthode RerouteConnections peut détacher les extrémités d'un connecteur et les rattacher à différents points de connexion sur les formes connectées.

Syntaxe

expression. RerouteConnections

Expression Variable qui représente un objet Shape .

Remarques

Cette méthode redirige tous les connecteurs joints à la forme spécifiée ; si cette dernière est un connecteur, elle est redirigée.

Exemple

Cet exemple ajoute deux rectangles à la première page de la composition active et les relie avec un connecteur en arc. Notez que la méthode RerouteConnections remplace les valeurs que vous fournissez pour les arguments ConnectionSite utilisés avec les méthodes BeginConnect et EndConnect .

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 

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.