Objet ConnectorFormat (PowerPoint)

Contient des propriétés et des méthodes qui s’appliquent aux connecteurs.

Remarques

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.

Utilisez la propriété ConnectorFormat pour renvoyer un objet ConnectorFormat. Utilisez les méthodes BeginConnect et EndConnect pour attacher les extrémités du connecteur à d’autres formes du document. Utilisez la méthode RerouteConnections pour rechercher automatiquement le chemin le plus court entre les deux formes connectées par le connecteur. Utiliser le connecteur propriété pour voir si une forme est un connecteur.

Notez que si vous affectez 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 dans la collection. Par conséquent, si vous avez l'intention d'attacher un connecteur à d'autres formes, la taille initiale et la position que vous indiquez ne sont pas appliquées. 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.

Généralement, les points d'attache sont numérotés conformément aux règles présentées dans le tableau suivant.

Type de forme	Type de numérotation des points d'attache
Formes automatiques, objets WordArt, images et objets OLE	Les points d'attache sont numérotés à partir du haut et en tournant dans le sens des aiguilles d'une montre.
Formes libres	Les points de connexion sont les sommets et ils correspondent aux numéros de sommet.

Exemple

L'exemple suivant montre comment ajouter deux rectangles à myDocument et les connecter à l'aide d'un connecteur en arc.

Set myDocument = ActivePresentation.Slides(1)

Set s = myDocument.Shapes

Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With s.AddConnector(msoConnectorCurve, 0, 0, 0, 0).ConnectorFormat

    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1

    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1

    .Parent.RerouteConnections

End With

Pour déterminer quel numéro correspond à quel site de connexion sur une forme complexe, vous pouvez expérimenter la forme pendant que l’enregistreur de macro est activé, puis examiner le code enregistré; ou vous pouvez créer une forme, la sélectionner, puis exécuter l’exemple suivant. Ce code numérot chaque site de connexion et y attache un connecteur.

Set mainshape = ActiveWindow.Selection.ShapeRange(1)

With mainshape

    bx = .Left + .Width + 50

    by = .Top + .Height + 50

End With

With ActiveWindow.View.Slide

    For j = 1 To mainshape.ConnectionSiteCount

        With .Shapes.AddConnector(msoConnectorStraight, bx, by, bx + 50, by + 50)

            .ConnectorFormat.EndConnect mainshape, j

            .ConnectorFormat.Type = msoConnectorElbow

            .Line.ForeColor.RGB = RGB(255, 0, 0)

            l = .Left

            t = .Top

        End With

        With .Shapes.AddTextbox(msoTextOrientationHorizontal, l, t, 36, 14)

            .Fill.Visible = False

            .Line.Visible = False

            .TextFrame.TextRange.Text = j

        End With

    Next j

End With

Voir aussi

Référence du modèle objet PowerPoint

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.