Метод ShapeNodes.Insert (PowerPoint)

Вставляет новый сегмент после указанного узла свободной формы.

Синтаксис

expression. Вставка (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

выражение Переменная, представляющая объект ShapeNodes .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Long	Узел, после чего будет вставлен новый узел.
SegmentType	Обязательный	MsoSegmentType	Тип добавляемого сегмента.
EditingType	Обязательный	MsoEditingType	Свойство редактирования вершины.
X1	Обязательный	Single	Если тип EditingType нового сегмента имеет значение msoEditingAuto, этот аргумент указывает горизонтальное расстояние (в точках) от левого верхнего угла документа до конечной точки нового сегмента. Если Тип редактирования нового узла имеет значение msoEditingCorner, этот аргумент указывает горизонтальное расстояние (в точках) от левого верхнего угла документа до первой контрольной точки для нового сегмента.
Y1	Обязательный	Single	Если тип EditingType нового сегмента имеет значение msoEditingAuto, этот аргумент указывает вертикальное расстояние (в точках) от левого верхнего угла документа до конечной точки нового сегмента. Если тип Редактирования нового узла имеет значение msoEditingCorner, этот аргумент указывает вертикальное расстояние (в точках) от левого верхнего угла документа до первой контрольной точки для нового сегмента.
X2	Необязательно	Single	Если элемент EditingType нового сегмента имеет значение msoEditingCorner, этот аргумент задает горизонтальное расстояние (в точках) от левого верхнего угла документа до второй контрольной точки для нового сегмента. Если параметр EditingType нового сегмента имеет значение msoEditingAuto, не указывайте значение для этого аргумента.
Y2	Необязательно	Single	Если Тип редактирования нового сегмента имеет значение msoEditingCorner, этот аргумент указывает вертикальное расстояние (в точках) от левого верхнего угла документа до второй контрольной точки для нового сегмента. Если параметр EditingType нового сегмента имеет значение msoEditingAuto, не указывайте значение для этого аргумента.
X3	Необязательно	Single	Если элемент EditingType нового сегмента имеет значение msoEditingCorner, этот аргумент указывает горизонтальное расстояние (в точках) от левого верхнего угла документа до конечной точки нового сегмента. Если параметр EditingType нового сегмента имеет значение msoEditingAuto, не указывайте значение для этого аргумента.
Y3	Необязательно	Single	Если параметр EditingType нового сегмента имеет значение msoEditingCorner, этот аргумент указывает вертикальное расстояние (в точках) от левого верхнего угла документа до конечной точки нового сегмента. Если параметр EditingType нового сегмента имеет значение msoEditingAuto, не указывайте значение для этого аргумента.

Замечания

Значение параметра SegmentType может быть одной из этих констант MsoSegmentType .

msoSegmentCurve
msoSegmentLine

Значение параметра EditingType может быть одной из этих констант MsoEditingType .

msoEditingAuto
msoEditingCorner

Пример

В этом примере в myDocument добавляется гладкий узел с изогнутым сегментом после узла четыре в форме три. Фигура 3 должна быть рисунком свободной формы с по крайней мере четырьмя узлами.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Nodes
    .Insert Index:=4, SegmentType:=msoSegmentCurve, _
        EditingType:=msoEditingSmooth, X1:=210, Y1:=100
End With

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

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