Метод FreeformBuilder.AddNodes (Word)
Вставляет новый сегмент в конец создаваемой свободной формы и добавляет узлы, определяющие сегмент.
Синтаксис
expression. AddNodes (SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
выражение (обязательно). Переменная, представляющая объект FreeformBuilder.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| 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, не указывайте значение для этого аргумента. |
Замечания
Используйте этот метод столько раз, сколько нужно добавить узлы в создаваемую свободную форму. Завершив добавление узлов, используйте метод ConvertToShape , чтобы создать только что определенную свободную форму. Чтобы добавить узлы в свободную форму после ее создания, используйте метод Insert коллекции ShapeNodes .
Пример
В этом примере в активный документ добавляется свободная форма с пятью вершинами.
Dim docActive As Document
Set docActive = ActiveDocument
With docActive.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 и обратная связь.