Points Property

Microsoft Publisher Visual Basic

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