Shapes.AddPolyline method (Project)

Erstellt eine offene Polylinie oder eine geschlossene Polygonzeichnung und gibt ein Shape-Objekt zurück, das die neue Polylinie oder das neue Polygon darstellt.

Syntax

Ausdruck. AddPolyline (SafeArrayOfPoints)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SafeArrayOfPoints	Erforderlich	Variant	Ein Array von Koordinatenpaaren, das die Scheitelpunkte der Polylinie angibt.
SafeArrayOfPoints	Erforderlich	Variant
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Shape

Hinweise

Weisen Sie dem ersten und letzten Scheitelpunkt in der Polylinienzeichnung dieselben Koordinaten zu, um ein geschlossenes Vieleck zu bilden. Bei einem geschlossenen Polygon ist die standardfarbene Formfüllfarbe mittelblau: &HD59B5B oder RGB(Red:=91, Green:=155, Blue:=213).

Beispiel

Da der erste und der letzte Punkt identisch sind, wird im folgenden Beispiel ein geschlossenes Achteck erstellt. Die violette Linie ist zwei Punkte breit; das Achteck ist mit einer goldfarbenen Farbe gefüllt.

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

Siehe auch

Shapes-ObjektShape-ObjektLine-EigenschaftFill-Eigenschaft

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.