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

Свойство ShapeNode.Points (Издатель)

  • Статья

Возвращает координаты x- и y- узла фигуры. Только для чтения.

Синтаксис

expression. Точки

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

Замечания

Это свойство доступно только для чтения. Используйте метод SetPosition , чтобы задать расположение узла.

Пример

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

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

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

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