Shapes.AddPolyline, méthode (Project)

Crée un dessin polyligne ouvert ou un polygone fermé et renvoie un objet Shape qui représente le nouveau polyligne ou polygone.

Syntaxe

expression. AddPolyline (SafeArrayOfPoints)

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
SafeArrayOfPoints	Obligatoire	Variant	Tableau de paires de coordonnées qui spécifie les sommets du polyligne.
SafeArrayOfPoints	Obligatoire	Variant
Nom	Requis/Facultatif	Type de données	Description

Valeur renvoyée

Forme

Remarques

Pour former un polygone fermé, affectez les mêmes coordonnées aux premier et dernier sommets dans le dessin en forme de polyligne. Pour un polygone fermé, la couleur de remplissage de forme par défaut est un bleu moyen : &HD59B5B ou RGB(Red:=91, Green:=155, Blue:=213).

Exemple

Étant donné que le premier et le dernier point sont identiques, l’exemple suivant crée un octogone fermé. La ligne violette est large de deux points ; l’octogone est rempli d’une couleur or.

Sub AddOctagon()
    Dim shapeReport As Report
    Dim reportName As String
    Dim polylineShape As shape
    
    ' Add a report.
    reportName = "Polyline report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    Dim octArray(1 To 9, 1 To 2) As Single
    octArray(1, 1) = 9
    octArray(1, 2) = 8
    octArray(2, 1) = 19
    octArray(2, 2) = 8
    octArray(3, 1) = 26
    octArray(3, 2) = 15
    octArray(4, 1) = 26
    octArray(4, 2) = 25
    octArray(5, 1) = 19
    octArray(5, 2) = 32
    octArray(6, 1) = 9
    octArray(6, 2) = 32
    octArray(7, 1) = 2
    octArray(7, 2) = 25
    octArray(8, 1) = 2
    octArray(8, 2) = 15
    octArray(9, 1) = 9
    octArray(9, 2) = 8
    
    Set polylineShape = shapeReport.Shapes.AddPolyline(octArray)
    
    With polylineShape.Line
        .Weight = 2
        .ForeColor.RGB = &HFF0090    ' Violet color.
    End With
    
    polylineShape.Fill.ForeColor.RGB = &H10D0D0    ' Gold color.
End Sub

Voir aussi

Shapes, objetShape ObjectLine, propriétéFill, 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.