Метод CanvasShapes.AddCurve (Word)
Возвращает объект Shape , представляющий кривую Безье на холсте рисования.
Синтаксис
expression. AddCurve (SafeArrayOfPoints)
выражение (обязательно). Переменная, представляющая объект CanvasShapes .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| SafeArrayOfPoints | Обязательный | Variant | Массив пар координат, указывающий вершины и контрольные точки кривой. Первая указанная точка — это начальная вершина, а следующие две точки — контрольные точки для первого сегмента Безье. Затем для каждого дополнительного сегмента кривой необходимо указать вершину и две контрольные точки. Последняя указанная точка — конечная вершина кривой. Обратите внимание, что необходимо всегда указывать 3n + 1 точки, где n — количество сегментов в кривой. |
Пример
В этом примере к новому холсту рисования добавляется кривая Безье.
Sub CanvasBezier()
Dim docNew As Document
Dim shpCanvas As Shape
Dim sngArray(1 To 7, 1 To 2) As Single
Set docNew = Documents.Add
'Create a new drawing canvas
Set shpCanvas = docNew.Shapes.AddCanvas(Left:=100, _
Top:=100, Width:=300, Height:=50)
sngArray(1, 1) = 0
sngArray(1, 2) = 0
sngArray(2, 1) = 50
sngArray(2, 2) = 50
sngArray(3, 1) = 100
sngArray(3, 2) = 0
sngArray(4, 1) = 150
sngArray(4, 2) = 50
sngArray(5, 1) = 200
sngArray(5, 2) = 0
sngArray(6, 1) = 250
sngArray(6, 2) = 50
sngArray(7, 1) = 300
sngArray(7, 2) = 0
'Add Bezier curve to drawing canvas
shpCanvas.CanvasItems.AddCurve _
SafeArrayOfPoints:=sngArray
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.