Shapes.AddLine, méthode (Project)

Ajoute une ligne à un rapport et retourne un objet Shape qui représente la ligne.

Syntaxe

expression. AddLine (BeginX,BeginY,EndX,EndY)

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
BeginX	Obligatoire	Unique	Position horizontale (en points) du point de départ, par rapport au bord gauche du rapport.
BeginY	Obligatoire	Unique	Position verticale (en points) du point de départ, par rapport au bord supérieur du rapport.
EndX	Obligatoire	Unique	Position horizontale (en points) du point de terminaison, par rapport au bord gauche du rapport.
EndY	Obligatoire	Unique	Position verticale (en points) du point de terminaison, par rapport au bord supérieur du rapport.
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

Pour mettre en forme la ligne, utilisez la propriété Shape.Line .

Exemple

L’exemple suivant crée une ligne violette en pointillés avec une flèche à la fin.

Sub AddBigArrow()
    Dim shapeReport As Report
    Dim reportName As String
    Dim lineShape As shape
    
    ' Add a report.
    reportName = "Line report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    Set lineShape = shapeReport.Shapes.AddLine(20, 50, 320, 100)
    
    With lineShape.Line
        .DashStyle = msoLineDashDot
        .Weight = 3
        .EndArrowheadStyle = msoArrowheadTriangle
        .EndArrowheadWidth = msoArrowheadWidthMedium
        .ForeColor.RGB = &HFF0090
    End With
End Sub

Voir aussi

Shapes, objetShape ObjectLine, propriété

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.