Метод Shapes. Аддкурве (Word)Shapes.AddCurve method (Word)

Возвращает объект Shape , представляющий кривую Безье в полотне.Returns a Shape object that represents a Bézier curve in a drawing canvas.

СинтаксисSyntax

Expression. Аддкурве (сафеаррайофпоинтс)expression.AddCurve (SafeArrayOfPoints)

выражение (обязательно).expression Required. Переменная, представляющая объект Shapes .A variable that represents a Shapes object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
сафеаррайофпоинтсSafeArrayOfPoints ОбязательныйRequired VariantVariant Массив пар координат, указывающий вершины и контрольные точки кривой.An array of coordinate pairs that specifies the vertices and control points of the curve. Первая указанная точка — начальная вершина, а следующие две точки — контрольные точки для первого сегмента Безье.The first point you specify is the starting vertex, and the next two points are control points for the first Bézier segment. Затем для каждого дополнительного сегмента кривой указывается вершина и две контрольные точки.Then, for each additional segment of the curve, you specify a vertex and two control points. Последняя указанная точка — это конечная вершина для кривой.The last point you specify is the ending vertex for the curve. Обратите внимание, что всегда необходимо указать 3n + 1 точки, где n — количество сегментов в кривой.Note that you must always specify 3n + 1 points, where n is the number of segments in the curve.

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

ShapeShape

ПримерExample

В этом примере показано, как добавить кривую Безье в новое полотно.This example adds a Bézier curve to a new drawing canvas.

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

См. такжеSee also

Объект Shapes CollectionShapes Collection Object

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.