Méthode ConnectorFormat.BeginDisconnect (Publisher)

Détache le début du connecteur spécifié de la forme à laquelle il est joint.

Syntaxe

expression. BeginDisconnect

Expression Variable qui représente un objet ConnectorFormat .

Remarques

Cette méthode ne modifie pas la taille ou la position du connecteur ; le début du connecteur reste positionné sur un site de connexion, mais n’est plus connecté.

Utilisez la méthode EndDisconnect pour détacher l'extrémité 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.