Shapes.AddConnector, méthode (PowerPoint)

Article
04/07/2023

Cette méthode crée un connecteur. Renvoie un objet Shape qui représente le nouveau connecteur. Lorsque vous ajoutez un connecteur, il n’est connecté à rien. Utilisez les méthodesBeginConnect et EndConnectqui permettent de joindre le début et la fin d’un connecteur à d’autres formes dans le document.

Syntaxe

expression. AddConnector (Type, BeginX, Beginy, EndX, EndY)

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Type	Obligatoire	MsoConnectorType	Type de connecteur.
BeginX	Obligatoire	Unique	Position horizontale, exprimée en points, du début du connecteur par rapport au bord gauche de la diapositive.
BeginY	Obligatoire	Unique	Position verticale, exprimée en points, du début du connecteur par rapport au bord supérieur de la diapositive.
EndX	Obligatoire	Unique	Position horizontale, exprimée en points, de la fin du connecteur par rapport au bord gauche de la diapositive.
EndY	Obligatoire	Unique	Position verticale, exprimée en points, de la fin du connecteur par rapport au bord supérieur de la diapositive.

Valeur renvoyée

Shape

Remarques

Lorsque vous joignez un connecteur à une forme, la taille et la position du connecteur sont automatiquement ajustées, si nécessaire. Par conséquent, si vous comptez attacher un connecteur à d’autres formes, la position et les dimensions que vous spécifiez lorsque vous ajoutez le connecteur ne sont pas pertinentes.

Exemple

Cet exemple montre comment ajouter deux rectangles à myDocument et les connecter avec un connecteur en arc. Notez que lorsque vous attachez le connecteur aux rectangles, la taille et la position du connecteur sont automatiquement ajustées ; par conséquent, la position et les dimensions que vous spécifiez lors de l’ajout de la légende ne sont pas pertinentes (les dimensions doivent être différentes de zéro).

Sub NewConnector() 
 
    Dim shpShapes As Shapes 
    Dim shpFirst As Shape 
    Dim shpSecond As Shape 
 
    Set shpShapes = ActivePresentation.Slides(1).Shapes 
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=100, Top:=50, Width:=200, Height:=100) 
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=300, Top:=300, Width:=200, Height:=100) 
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat 
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1 
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1 
        .Parent.RerouteConnections 
    End With 
 
End Sub

Voir aussi

Objet Shapes

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