Méthode ConnectorFormat.BeginConnect (Excel)

Détache le début du connecteur spécifié de la forme à laquelle il est attaché. S'il existe déjà une connexion entre le début du connecteur et une autre forme, cette connexion est cassée.

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

Utilisez la méthode EndConnect pour joindre l'extrémité du connecteur à une forme.

Syntaxe

expression. BeginConnect (ConnectedShape, ConnectionSite)

Expression Variable qui représente un objet ConnectorFormat .

Parameters

Nom	Requis/Facultatif	Type de données	Description
ConnectedShape	Obligatoire	Forme	Forme à laquelle le début du connecteur doit être attaché. L’objet Shape spécifié doit se trouver dans la même collection Shapes que le connecteur.
Connectionsite	Obligatoire	Long	Site de connexion sur la forme spécifiée par ConnectedShape. 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 connecte, spécifiez un entier valide pour cet argument, puis utilisez la méthode RerouteConnections une fois 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.