Méthode ConnectorFormat.EndConnect (Excel)

Joint la fin du connecteur spécifié à une forme spécifiée. S'il existe déjà une connexion entre la fin du connecteur et une autre forme, cette connexion est cassée.

Si l'extrémité du connecteur n'est pas déjà positionnée sur le point de connexion indiqué, cette méthode déplace l'extrémité du connecteur vers le point de connexion et ajuste la taille et la position du connecteur.

Utilisez la méthode BeginConnect pour joindre le début du connecteur à une forme.

Syntaxe

expression. EndConnect (ConnectedShape, ConnectionSite)

Expression Variable qui représente un objet ConnectorFormat .

Parameters

Nom	Requis/Facultatif	Type de données	Description
ConnectedShape	Requis	Shape	Forme à laquelle la fin du connecteur est rattachée. L’objet Shape spécifié doit se trouver dans la même collection Shapes que le connecteur.
Connectionsite	Obligatoire	Long	Doit être un entier compris entre 1 et le nombre entier renvoyé par la propriété ConnectionSiteCount de la forme spécifiée. Si vous souhaitez que le connecteur trouve automatiquement le chemin le plus court entre les deux formes qu'il se connecte, spécifier n'importe quel entier valide pour cet argument et utilisez la méthode RerouteConnections après que le connecteur est attaché aux formes aux deux extrémités.

Remarques

Quand vous rattachez un connecteur à un objet, la taille et la position du connecteur sont automatiquement ajustées, si nécessaire.

Exemple

Cet exemple montre comment ajouter deux rectangles à myDocument et les connecter avec un connecteur en arc. Notez que si vous utilisez la méthode RerouteConnections, les valeurs que vous avez affectées aux arguments SiteConnexion des méthodes BeginConnect et EndConnect ne sont pas prises en compte.

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

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.