ShapeNodes.SetPosition method (Publisher)

Sets the position of the specified node. Depending on the editing type of the node, this method may affect the position of adjacent nodes.

Syntax

expression.SetPosition (Index, X1, Y1)

expression A variable that represents a ShapeNodes object.

Parameters

Name	Required/Optional	Data type	Description
Index	Required	Integer	The node whose position is to be set. Must be a number from 1 to the number of nodes in the specified shape; otherwise, an error occurs.
X1	Required	Variant	The horizontal position of the node relative to the upper-left corner of the page.
Y1	Required	Variant	The vertical position of the node relative to the upper-left corner of the page.

Remarks

For the X1 and Y1 arguments, numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").

Example

This example moves the second node in the third shape in the active publication 200 points to the right and 300 points down. The shape must be a freeform drawing.

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 

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.