Shapes.AddCurve-Methode (Project)

  • Artikel

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

Name Erforderlich/Optional Datentyp Beschreibung
SafeArrayOfPoints Erforderlich Variant Ein Array von Koordinatenpaaren, das Scheitelpunkte und Steuerpunkte der Kurve angibt.
SafeArrayOfPoints Erforderlich Variant

Rückgabewert

Form

HinwBemerkungeneise

Für den SafeArrayOfPoints-Parameter ist der erste Punkt, den Sie angeben, der Anfangsvertex, 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, beginnend in der oberen linken Ecke des Berichts. Die Kurve ist 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

Shapes-ObjektShape-ObjektLine-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.