Méthode ConnectorFormat.EndDisconnect (Publisher)

Détache l’extrémité du connecteur spécifié de la forme à laquelle il est joint.

Syntaxe

expression. EndDisconnect

Expression Variable qui représente un objet ConnectorFormat .

Remarques

Cette méthode ne modifie pas la taille ou la position du connecteur : l'extrémité du connecteur reste positionnée sur le point de connexion mais elle n'est plus connectée.

Utilisez la méthode BeginDisconnect pour détacher le début du connecteur d'une forme.

Exemple

Cet exemple ajoute deux rectangles à la première page de la composition active, les joint à un connecteur, redirige le connecteur vers le chemin le plus court et détache le connecteur des rectangles.

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 connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=0, EndY:=0) _ 
 .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 
 
 ' Disconnect the new connector from the rectangles but 
 ' leave in place. 
 .BeginDisconnect 
 .EndDisconnect 
 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.