Shapes.AddCurve 方法 (專案)

將貝茲曲線加入報告，並回傳代表該曲線的 Shape 物件。

語法

expression。 AddCurve (安全點數陣列)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
安全分數陣列	必要	Variant	用於指定區線上之頂點和控制點的座標組陣列。
安全分數陣列	必要	Variant

傳回值

圖形

註解

對於 SafeArrayOfPoints 參數，你指定的第一個點是起始頂點，接下來的兩個點是第一個貝濟爾段的控制點。 然後，對於曲線的每個貝塞爾段落，指定一個頂點和兩個控制點。 所指定的最後一個點應是曲線的終止頂點。 請注意，你必須始終指定 3 個 n + 1 個點，其中 n 是曲線中的線段數。

範例

以下範例會產生一條有七個頂點的曲線，從報告的左上角開始。 曲線設定為一條黃綠色線，寬度為兩點。

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

另請參閱

形狀 物件形狀 物件行屬性

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。