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.