Метод Shapes.AddCurve (Project)

Добавляет кривая Bézier в отчет и возвращает объект Shape , который представляет кривая.

Синтаксис

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

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

Параметры

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

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

Shape

Примечания

Для параметра SafeArrayOfPoints первой точкой, указываемой, является начальная вершина, а следующими двумя точками являются точки управления для первого сегмента Bézier. Затем для каждого дополнительного сегмента кривой укажите вершину и две точки управления. Последний момент, который вы указываете, — это завершающий вершина кривой. Обратите внимание, что всегда необходимо указать 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

См. также

Объект Shapes Объект Shape Свойство Line

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.