Метод 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 и обратная связь.