Shapes.AddConnector, méthode (Project)

  • Article

Crée un connecteur et renvoie un objet Shape que représente le nouveau connecteur.

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. Il peut s’agir de l’une des constantes suivantes : msoConnectorElbow, msoConnectorTypeMixed, msoConnectorCurve ou msoConnectorStraight.
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 Unique Position verticale (en points) du point de départ du connecteur.
EndX Obligatoire Unique Position horizontale (en points) du point de terminaison du connecteur.
EndY Obligatoire Unique Position verticale (en points) du point de terminaison du connecteur.
Type Requis MSOCONNECTORTYPE
BeginX Requis FLOAT
BeginY Requis FLOAT
EndX Requis FLOAT
EndY Requis FLOAT
Nom Requis/Facultatif Type de données Description

Valeur renvoyée

Forme

Remarques

Remarque

Dans Project, les méthodes permettant d’attacher le début et la fin d’un connecteur à d’autres formes du rapport (ConnectorFormat.BeginConnect et ConnectorFormat.EndConnect) ne fonctionnent pas. Utilisez uniquement les paramètres AddConnector pour positionner le connecteur. Pour plus d’informations, consultez la propriété ConnectorFormat .

Exemple

L’exemple suivant crée un rapport qui contient deux formes de nuage, puis ajoute une ligne de connecteur courbée bleu-vert de deux points de large.

Sub ConnectClouds()
    Dim shapeReport As Report
    Dim reportName As String
    Dim connectorShape As shape
    
    ' Add a report.
    reportName = "Cloud report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    Set connectorShape = shapeReport.Shapes.AddConnector(msoConnectorCurve, 80, 80, 130, 200)
        
    With connectorShape
        .Line.Weight = 2
        .Line.ForeColor.RGB = &HAAFF00
    End With
End Sub

Voir aussi

Shapes ObjectShape ObjectConnectorFormat PropertyAutoShapeType, propriétéMsoConnectorType

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.