Objet ConnectorFormat (Publisher)

  • Article

Contient des propriétés et des méthodes qui s'appliquent aux connecteurs. Un connecteur est une ligne reliant deux autres formes à des points nommés points de connexion. Si vous réorganisez des formes qui sont connectées, la géométrie du connecteur sera automatiquement ajustée afin que le formes restent connectées.

Remarques

Utilisez la propriété ConnectorFormat de la forme objet ou ShapeRange collection pour renvoyer un objet ConnectorFormat.

Utilisez la méthode BeginConnect et EndConnect méthodes de l'objet ConnectorFormat pour attacher les extrémités du connecteur à d'autres formes de la composition.

Utilisez le RerouteConnections méthode de l'objet Shape et la collection ShapeRange pour rechercher automatiquement le chemin le plus court entre deux formes reliées par le connecteur.

Utilisez la propriété Connector pour déterminer si une forme est un connecteur.

Remarque

Vous attribuez une taille et une position lorsque vous ajoutez un connecteur à la collection Shapes , mais la taille et la position sont automatiquement ajustées lorsque vous attachez le début et la fin du connecteur à d’autres formes de la collection. Par conséquent, si vous envisagez d’attacher un connecteur à d’autres formes, la taille et la position initiales que vous spécifiez ne sont pas pertinentes. De même, vous définissez les sites de connexion sur une forme et attache le connecteur lorsque vous l'attachez, mais à l'aide de la méthode RerouteConnections après l'attache du connecteur peut modifier les sites de connexion que le connecteur s'attache, de rendre votre premier choix de sites de connexion sans effet.

Exemple

L’exemple suivant ajoute deux rectangles à la composition active, puis les connecte à un connecteur incurvé.

Dim shpAll As Shapes 
Dim firstRect As Shape 
Dim secondRect As Shape 
 
Set shpAll = ActiveDocument.Pages(1).Shapes 
Set firstRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
Set secondRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 


With shpAll.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
 BeginY:=0, EndX:=0, EndY:=0).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 .Parent.RerouteConnections 
End With

Méthodes

Propriétés

Voir aussi

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.