Propriété ConnectorFormat.EndConnectionSite (Publisher)

  • Article

Renvoie un type Long indiquant le point de connexion auquel la fin d'un connecteur est reliée. En lecture seule.

Syntaxe

expression. EndConnectionSite

Expression Variable qui représente un objet ConnectorFormat .

Valeur renvoyée

Entier long

Remarques

Si la fin du connecteur spécifié n'est pas reliée à une forme, cette propriété produit une erreur.

Utilisez la propriété BeginConnectionSite pour renvoyer le point auquel le début d'un connecteur est relié.

Exemple

Cet exemple suppose que la première page de la composition active contient déjà deux formes reliées par un connecteur baptisé Conn1To2. Ce code ajoute un rectangle et un connecteur sur la première page. La fin de ce nouveau connecteur sera reliée au même point de connexion que la fin du connecteur baptisé Conn1To2, et le début du nouveau connecteur sera relié au point de connexion du nouveau rectangle.

Dim shpNew As Shape 
Dim intSite As Integer 
Dim shpOld As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 
 ' Add new rectangle. 
 Set shpNew = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=450, Top:=190, Width:=200, Height:=100) 
 
 ' Add new connector. 
 .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=10, EndY:=10) _ 
 .Name = "Conn1To3" 
 
 ' Get connection site number of old shape, and set 
 ' reference to old shape. 
 With .Item("Conn1To2").ConnectorFormat 
 intSite = .EndConnectionSite 
 Set shpOld = .EndConnectedShape 
 End With 
 
 ' Connect new connector to old shape and new rectangle. 
 With .Item("Conn1To3").ConnectorFormat 
 .EndConnect ConnectedShape:=shpOld, _ 
 ConnectionSite:=intSite 
 .BeginConnect ConnectedShape:=shpNew, _ 
 ConnectionSite:=1 
 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.