Метод FreeformBuilder.AddNodes (Publisher)
Вставляет новый сегмент в конец создаваемой свободной формы и добавляет узлы, определяющие сегмент.
Используйте этот метод столько раз, сколько вы хотите добавить узлы в создаваемую свободную форму. Завершив добавление узлов, используйте метод ConvertToShape , чтобы создать только что определенную свободную форму.
Синтаксис
expression. AddNodes (SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
Выражение Переменная, представляющая объект FreeformBuilder .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| SegmentType | Обязательный | MsoSegmentType | Тип добавляемого сегмента. Может быть msoSegmentCurve или msoSegmentLine. |
| EditingType | Обязательный | MsoEditingType | Тип редактирования нового узла. Может быть msoEditingAuto или msoEditingCorner. Если segmentType имеет значение msoSegmentLine, editingType должен иметь значение msoEditingAuto; В противном случае возникает ошибка. |
| X1 | Обязательный | Variant | Если тип редактирования нового сегмента имеет значение msoEditingAuto, этот аргумент указывает горизонтальное расстояние от левого верхнего угла страницы до конечной точки нового сегмента. Если Тип редактирования нового узла имеет значение msoEditingCorner, этот аргумент задает горизонтальное расстояние от левого верхнего угла страницы до первой контрольной точки для нового сегмента. |
| Y1 | Обязательный | Variant | Если тип Редактирования нового сегмента имеет значение msoEditingAuto, этот аргумент указывает вертикальное расстояние от левого верхнего угла страницы до конечной точки нового сегмента. Если Тип редактирования нового узла имеет значение msoEditingCorner, этот аргумент указывает вертикальное расстояние от левого верхнего угла страницы до первой контрольной точки для нового сегмента. |
| X2 | Необязательный | Variant | Если тип Редактирования нового сегмента имеет значение msoEditingCorner, этот аргумент указывает горизонтальное расстояние от левого верхнего угла страницы до второй контрольной точки для нового сегмента. Если параметр EditingType нового сегмента имеет значение msoEditingAuto, не указывайте значение для этого аргумента. |
| Y2 | Необязательный | Variant | Если Тип редактирования нового сегмента имеет значение msoEditingCorner, этот аргумент указывает вертикальное расстояние от левого верхнего угла страницы до второй контрольной точки для нового сегмента. Если параметр EditingType нового сегмента имеет значение msoEditingAuto, не указывайте значение для этого аргумента. |
| X3 | Необязательный | Variant | Если тип Редактирования нового сегмента имеет значение msoEditingCorner, этот аргумент указывает горизонтальное расстояние от левого верхнего угла страницы до конечной точки нового сегмента. Если параметр EditingType нового сегмента имеет значение msoEditingAuto, не указывайте значение для этого аргумента. |
| Y3 | Необязательный | Variant | Если тип Редактирования нового сегмента имеет значение msoEditingAuto, этот аргумент указывает вертикальное расстояние от левого верхнего угла страницы до конечной точки нового сегмента. Если параметр EditingType нового сегмента имеет значение msoEditingAuto, не указывайте значение для этого аргумента. |
Замечания
Для аргументов X1, Y1, X2, Y2, X3 и Y3 числовые значения оцениваются в пунктах; строки могут находиться в любых единицах, поддерживаемых Microsoft Publisher (например, "2.5 in").
Чтобы добавить узлы в свободную форму после ее создания, используйте метод Insert коллекции ShapeNodes .
Пример
В этом примере на первую страницу активной публикации добавляется свободная форма с четырьмя вершинами.
' Add a new freeform object.
With ActiveDocument.Pages(1).Shapes _
.BuildFreeform(EditingType:=msoEditingCorner, _
X1:=100, Y1:=100)
' Add three more nodes and close the polygon.
.AddNodes SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingCorner, _
X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200
.AddNodes SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingAuto, X1:=200, Y1:=100
.AddNodes SegmentType:=msoSegmentLine, _
EditingType:=msoEditingAuto, X1:=150, Y1:=50
.AddNodes SegmentType:=msoSegmentLine, _
EditingType:=msoEditingAuto, X1:=100, Y1:=100
' Convert the polygon to a Shape object.
.ConvertToShape
End With
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.