Метод Shapes. Аддкурве (Project)Shapes.AddCurve method (Project)

• 06/08/2017
• Чтение занимает 2 мин
• • 

Добавляет в отчет кривую Безье и возвращает объект Shape , представляющий кривую.Adds a Bézier curve to a report, and returns a Shape object that represents the curve.

СинтаксисSyntax

выражение.expression. AddCurve(Сафеаррайофпоинтс)AddCurve (SafeArrayOfPoints)

выражение: переменная, представляющая объект Shapes.expression A variable that represents a Shapes object.

ПараметрыParameters

Возвращаемое значениеReturn value

ShapeShape

ПримечанияRemarks

Для параметра сафеаррайофпоинтс первая указанная точка — начальная вершина, а следующие две точки — контрольные точки для первого сегмента Безье.For the SafeArrayOfPoints parameter, the first point you specify is the starting vertex, and the next two points are control points for the first Bézier segment. Затем для каждого дополнительного сегмента кривой указывается вершина и две контрольные точки.Then, for each additional segment of the curve, you specify a vertex and two control points. Последняя указанная точка — это конечная вершина для кривой.The last point you specify is the ending vertex for the curve. Обратите внимание, что всегда необходимо указать 3 n + 1 точки, где n — количество сегментов в кривой.Note that you must always specify 3 n + 1 points, where n is the number of segments in the curve.

ПримерExample

В приведенном ниже примере создается кривая, которая имеет семь вершин, начиная с левого верхнего угла отчета.The following example creates a curve that has seven vertices, starting at the upper-left corner of the report. Кривая задается желтая зеленая линия с двумя точками.The curve is set to a yellow-green line that is two points wide.

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

См. такжеSee also

Объект Shapes —свойство Line объекта LineShapes Object Shape Object Line Property

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.