Application.CreateSnapPoint

Function CreateSnapPoint(PositionX As Double, PositionY As Double) As SnapPoint

The CreateSnapPoint method creates a free snap point that can be used to create a free connector line (a line not attached to any object).


Parameters	Description
PositionX	Specifies the horizontal position of a snap point
PositionY	Specifies the vertical position of a snap point

The following code example creates a rectangle and attaches a connector line to its center. The second end of the connector line is loose and placed in the center of the page.

Sub Test() 
 Dim rect As Shape 
 Set rect = ActiveLayer.CreateRectangle(0, 0, 3, 3) 
 ActiveLayer.CreateConnector rect.SnapPoints(9), _ 
  CreateSnapPoint(ActivePage.SizeWidth / 2, ActivePage.SizeHeight / 
2) 
End Sub