Метод Shapes.AddCurve (PowerPoint)
Создает кривую Безье. Возвращает объект Shape , представляющий новую кривую.
Синтаксис
expression. AddCurve (SafeArrayOfPoints)
выражение: переменная, представляющая объект Shapes.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| SafeArrayOfPoints | Обязательный | Variant | Массив пар координат, указывающий вершины и контрольные точки кривой. Первая указанная точка — это начальная вершина, а следующие две точки — контрольные точки для первого сегмента Безье. Затем для каждого дополнительного сегмента кривой необходимо указать вершину и две контрольные точки. Последняя указанная точка — конечная вершина кривой. Обратите внимание, что необходимо всегда указывать 3n + 1 точки, где n — количество сегментов в кривой. |
Возвращаемое значение
Shape
Пример
В следующем примере в myDocument добавляется двухсегментная кривая Безье.
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 myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddCurve SafeArrayOfPoints:=pts
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.