Shapes.AddCurve-Methode (Projekt)

Fügt einem Bericht eine Bézierkurve hinzu und gibt ein Shape-Objekt zurück, das die Kurve darstellt.

Syntax

Ausdruck. AddCurve (SafeArrayOfPoints)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Rückgabewert

Shape

Hinweise

Für den Parameter SafeArrayOfPoints ist der erste Punkt, den Sie angeben, der Startscheitelpunkt, und die nächsten beiden Punkte sind Kontrollpunkte für das erste Béziersegment. Geben Sie anschließend für jedes weitere Kurvensegment einen Scheitel und zwei Steuerpunkte an. Der zuletzt angegebene Punkt ist der Endscheitel der Kurve. Beachten Sie, dass Sie immer 3 n + 1 Punkte angeben müssen, wobei n die Anzahl der Segmente in der Kurve ist.

Beispiel

Im folgenden Beispiel wird eine Kurve mit sieben Scheitelpunkten erstellt, die an der oberen linken Ecke des Berichts beginnt. Die Kurve wird auf eine gelb-grüne Linie festgelegt, die zwei Punkte breit ist.

Sub AddBezierCurve()
    Dim shapeReport As Report
    Dim reportName As String
    Dim curveShape As shape
    
    ' Add a report.
    reportName = "Curve report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    Dim pts(1 To 7, 1 To 2) As Single
    pts(1, 1) = 0
    pts(1, 2) = 0
    pts(2, 1) = 72
    pts(2, 2) = 72
    pts(3, 1) = 100
    pts(3, 2) = 40
    pts(4, 1) = 20
    pts(4, 2) = 50
    pts(5, 1) = 90
    pts(5, 2) = 120
    pts(6, 1) = 60
    pts(6, 2) = 30
    pts(7, 1) = 150
    pts(7, 2) = 90

    Set curveShape = shapeReport.Shapes.AddCurve(pts)

    With curveShape
        .Line.Weight = 2
        .Line.ForeColor.RGB = &H1FFAA
    End With
End Sub

Siehe auch

Formen ObjektFormobjektLinieneigenschaft

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.