Sub PointStart() Dim sp As New SnapPoint Dim s1 As Shape, s2 As Shape, c As Shape ActiveDocument.ReferencePoint = cdrBottomLeft sp.PositionX = 1 sp.PositionY = 6 Set s1 = ActiveLayer.CreateRectangle(0, 0, 3, 3) Set s2 = ActiveLayer.CreateEllipse(4, 4, 6, 1) Set c = ActiveLayer.CreateConnector(s1.SnapPoints(2), s2.SnapPoints(1)) c.Connector.StartPoint = s1.SnapPoints(2) c.Connector.EndPoint = s2.SnapPoints(1)End Sub