Sub Test() Dim r As Shape, e As Shape, c As Shape Set r = ActiveLayer.CreateRectangle(0, 0, 2, 2) Set e = ActiveLayer.CreateEllipse2(4, 2, 1) Set c = ActiveLayer.CreateFreeConnector(1, 0, 4, 0) c.Connector.StartPoint = r.SnapPoints(4) ' Center of rectangle c.Connector.EndPoint = e.SnapPoints(3) ' Center of ellipseEnd Sub