Метод ShapeNodes.SetPosition (Издатель)

Статья
04/07/2023

Задает положение указанного узла. В зависимости от типа редактирования узла этот метод может повлиять на положение смежных узлов.

Синтаксис

expression. SetPosition (Index, X1, Y1)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Integer	Узел, положение которого необходимо задать. Должно быть числом от 1 до числа узлов в указанной фигуре; В противном случае возникает ошибка.
X1	Обязательный	Variant	Горизонтальное положение узла относительно левого верхнего угла страницы.
Y1	Обязательный	Variant	Вертикальное положение узла относительно левого верхнего угла страницы.

Замечания

Для аргументов X1 и Y1 числовые значения оцениваются в точках; строки могут находиться в любых единицах, поддерживаемых Microsoft Publisher (например, "2.5 in").

Пример

В этом примере второй узел в третьей фигуре активной публикации перемещается на 200 точек вправо и на 300 пунктов вниз. Фигура должна быть рисунком свободной формы.

Dim arrPoints As Variant 
Dim intX As Integer 
Dim intY As Integer 
 
With ActiveDocument.Pages(1).Shapes(3).Nodes 
 arrPoints = .Item(2).Points 
 intX = arrPoints(1, 1) 
 intY = arrPoints(1, 2) 
 .SetPosition Index:=2, X1:=intX + 200, Y1:=intY + 300 
End With

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

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

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