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


Метод 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

См. также

Коллекция CanvasShapes

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

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