Метод ShapeNodes.Insert (издатель)
Вставляет новый сегмент после указанного узла документа свободной формы.
Синтаксис
expression. Вставка (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
Выражение Переменная, представляющая объект ShapeNodes .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Индекс; | Обязательный | Long | Номер узла, после которого будет вставлен новый узел. |
| SegmentType | Обязательный | MsoSegmentType | Тип добавляемого сегмента. Может быть одной из констант MsoSegmentType . |
| EditingType | Обязательный | MsoEditingType | Тип редактирования нового узла. Может быть одной из констант MsoEditingType . |
| 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 | Если Тип редактирования нового сегмента имеет значение msoEditingCorner, этот аргумент задает вертикальное расстояние от левого верхнего угла страницы до конечной точки нового сегмента. Если параметр EditingType нового сегмента имеет значение msoEditingAuto, не указывайте значение для этого аргумента. |
Замечания
Для аргументов X1, Y1, X2, Y2, X3 и Y3 числовые значения оцениваются в пунктах; строки могут находиться в любых единицах, поддерживаемых Издателем (например, "2.5 in").
Пример
В этом примере добавляется гладкий узел с изогнутым сегментом после узла четыре в третьей фигуре активной публикации. Фигура должна быть рисунком свободной формы с не менее чем четырьмя узлами.
With ActiveDocument.Pages(1).Shapes(3).Nodes
.Insert Index:=4, _
SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingAuto, _
X1:=210, Y1:=100
End With
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.