Shapes.AddConnector, méthode (projet)

Crée un lien et renvoie un objet Shape qui 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. Peut être l’une des constantes suivantes : msoConnectorElbow, msoConnectorTypeMixed, msoConnectorCurve ou msoConnectorStraight.
BeginX Obligatoire Unique Position horizontale (en points) du point de départ du lien, par rapport au coin supérieur gauche du document.
BeginY Obligatoire Unique Position verticale (en points) du point de départ du lien.
EndX Obligatoire Unique Position horizontale (en points) du point d’extrémité du lien.
EndY Obligatoire Unique Position verticale (en points) du point d’extrémité du lien.
Type Obligatoire MSOCONNECTORTYPE
BeginX Obligatoire FLOAT
BeginY Obligatoire FLOAT
EndX Obligatoire FLOAT
EndY Obligatoire FLOAT
Nom Requis/Facultatif Type de données Description

Valeur renvoyée

Forme

Remarques

Remarque

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

Exemple

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

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

Formes ObjetForme ObjetConnectorFormat PropriétéAutoShapeType 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.

  • Last updated on