Share via

Points Property [Publisher 2003 VBA Language Reference]

  • Article

Returns a Variant that represents the position of the specified node as a coordinate pair. Each coordinate is expressed in points. Read-only.

expression.Points

expression Required. An expression that returns one of the objects in the Applies To list.

Remarks

This property is read-only. Use the SetPosition method to set the location of the node.

Example

This example moves node two in shape one on the first page of the active publication to the right 200 points and down 300 points. For this example to work, shape one must be a freeform drawing.

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

Applies to | ShapeNode Object