Метод FreeformBuilder.AddNodes (Excel)

Добавляет точку в текущей фигуре, а затем рисует линию от текущего узла до последнего добавленного узла.

Синтаксис

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

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

Параметры

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

Замечания

MsoEditingType не может быть msoEditingSmooth или msoEditingSymmetric. Если segmentType имеет значение msoSegmentLine, editingType должен иметь значение msoEditingAuto.

Пример

В этом примере в myDocument добавляется свободная форма с четырьмя сегментами.

Set myDocument = Worksheets(1) 
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200) 
    .AddNodes msoSegmentCurve, msoEditingCorner, _ 
        380, 230, 400, 250, 450, 300 
    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200 
    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400 
    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200 
    .ConvertToShape 
End With

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

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