Shapes.AddPolyline, méthode (projet)

Crée un dessin de polyligne ouverte ou de polygone fermé et renvoie un objet Shape qui représente la nouvelle polyligne ou le nouveau polygone.

Syntaxe

expression. AddPolyline (SafeArrayOfPoints)

expression Variable qui représente un objet Shapes.

Paramètres

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 bleu moyen : &HD59B5B ou RGB(Red:=91, Green:=155, Blue:=213).

Exemple

Les premier et dernier points étant les mêmes, l’exemple suivant crée un octogone fermé. La ligne violette a deux points de large ; L’octogone est rempli d’une couleur dorée.

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

Formes ObjetForme Objet LignePropriétéde remplissage

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.