Propriété ConnectorFormat.BeginConnectedShape (Publisher)

Renvoie un objet Shape qui représente la forme à laquelle est relié le début du connecteur spécifié.

Syntaxe

expression. BeginConnectedShape

Expression Variable qui représente un objet ConnectorFormat .

Valeur renvoyée

Shape

Remarques

Si le début du connecteur spécifié n'est pas relié à une forme, une erreur se produit.

Utilisez la propriété EndConnectedShape pour renvoyer la forme reliée à la fin d'un connecteur.

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. Le début de ce nouveau connecteur sera relié au même point de connexion que le début du connecteur baptisé Conn1To2, et la fin du nouveau connecteur sera reliée 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 = .BeginConnectionSite 
 Set shpOld = .BeginConnectedShape 
 End With 
 
 ' Connect new connector to old shape and new rectangle. 
 With .Item("Conn1To3").ConnectorFormat 
 .BeginConnect ConnectedShape:=shpOld, _ 
 ConnectionSite:=intSite 
 .EndConnect 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.