Méthode Shapes.AddConnector (Excel)

Article
04/07/2023

Créer un connecteur. Renvoie un objet Shape qui représente le nouveau connecteur. Quand un connecteur est ajouté, il n'est pas connecté. 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 du connecteur à ajouter.
BeginX	Obligatoire	Unique	Position horizontale (en points) du point de départ du connecteur par rapport au coin supérieur gauche du document.
BeginY	Obligatoire	Réel simple	Position verticale (en points) du point de départ du connecteur par rapport au coin supérieur gauche du document.
EndX	Obligatoire	Réel simple	Position horizontale (en points) du point de fin du connecteur par rapport au coin supérieur gauche du document.
EndY	Obligatoire	Unique	Position verticale (en points) du point de terminaison du connecteur par rapport au coin supérieur gauche du document.

Valeur renvoyée

Forme

Remarques

Quand vous attachez un connecteur à une forme, la taille et la position du connecteur sont ajustées automatiquement, si nécessaire. Par conséquent, si vous souhaitez attacher un connecteur à d’autres formes, la position et les dimensions que vous spécifiez lors de l’ajout du connecteur ne sont pas pertinentes.

Exemple

L'exemple suivant montre comment ajouter un connecteur en arc à un nouveau dessin dans une nouvelle feuille de calcul.

Sub AddCanvasConnector() 
 
    Dim wksNew As Worksheet 
    Dim shpCanvas As Shape 
 
    Set wksNew = Worksheets.Add 
 
    'Add drawing canvas to new worksheet 
    Set shpCanvas = wksNew.Shapes.AddCanvas( _ 
        Left:=150, Top:=150, Width:=200, Height:=300) 
 
    'Add connector to the drawing canvas 
    shpCanvas.CanvasItems.AddConnector _ 
        Type:=msoConnectorStraight, BeginX:=150, _ 
        BeginY:=150, EndX:=200, EndY:=200 
 
End Sub

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.

Share via