Sub Test() Dim sp As SnapPoint For Each sp In ActiveShape.SnapPoints ActiveLayer.CreateEllipse2 sp.PositionX, sp.PositionY, 0.1 Next spEnd Sub
Sub Test() Dim rect As Shape, ell As Shape Dim lr As Layer Set lr = ActiveLayer Set rect = lr.CreateRectangle(0, 0, 3, 3) Set ell = lr.CreateEllipse2(5, 5, 1, 1) lr.CreateConnector rect.SnapPoints(2), ell.SnapPoints(4)End Sub