Метод FreeformBuilder.AddNodes (PowerPoint)

Статья
04/07/2023

Вставляет новый сегмент в конец создаваемой свободной формы и добавляет узлы, определяющие сегмент. Используйте этот метод столько раз, сколько нужно добавить узлы в создаваемую свободную форму. Завершив добавление узлов, используйте метод ConvertToShape , чтобы создать только что определенную свободную форму. Чтобы добавить узлы в свободную форму после ее создания, используйте метод Insert коллекции ShapeNodes .

Синтаксис

expression. AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
SegmentType	Обязательный	MsoSegmentType	Тип добавляемого сегмента.
EditingType	Обязательный	MsoEditingType	Свойство редактирования вершины. Если SegmentType имеет значение msoSegmentLine, editingType должен иметь значение msoEditingAuto.
X1	Обязательный	Single	Если тип Редактирования нового сегмента имеет значение 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, не указывайте значение для этого аргумента.

Пример

В этом примере к первому слайду активной презентации добавляется свободная форма с пятью вершинами.

Set myDocument = ActivePresentation.Slides(1) 
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200) 
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _ 
        X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300 
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _ 
        X1:=480, Y1:=200 
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
        X1:=480, Y1:=400 
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
        X1:=360, Y1:=200 
    .ConvertToShape 
End With

См. также

Объект FreeformBuilder

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

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

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