Метод Shapes.AddCurve (Project)

Статья
04/07/2023

Добавляет кривую Безье в отчет и возвращает объект Shape , представляющий кривую.

Синтаксис

выражение. AddCurve (SafeArrayOfPoints)

выражение: переменная, представляющая объект Shapes.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
SafeArrayOfPoints	Обязательный	Variant	Массив пар координат, указывающий вершины и контрольные точки кривой.
SafeArrayOfPoints	Обязательный	Variant

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

Shape

Замечания

Для параметра 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 и обратная связь.

Поделиться через