Méthode ConnectorFormat.EndConnect (Publisher)

Article
04/07/2023

Joint la fin du connecteur spécifié à une forme spécifiée.

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	La forme à laquelle Microsoft Publisher joint l'extrémité du connecteur. L'objet Shape spécifié doit être 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. Les points de connexion sont numérotés en partant du haut de la forme spécifiée et de déplacement dans le sens inverse autour de la forme. 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

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.

Lorsque vous associez un connecteur à un objet, la taille et la position du connecteur s'ajustent automatiquement si nécessaire.

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

Exemple

Cet exemple ajoute deux rectangles à la première page de la composition active et les relie avec un connecteur en arc. Notez que la méthode RerouteConnections remplace les valeurs que vous fournissez pour les arguments ConnectionSite utilisés avec les méthodes BeginConnect et EndConnect .

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 curved connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .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 
 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.

Partager via