Sub Test() Dim sr As ShapeRange Set sr = ActiveSelectionRange For Each s In sr If s.Type = cdrCurveShape Then Dim firstNode As Node Set firstNode = s.Curve.nodes(1) Dim lastNode As Node Set lastNode = s.Curve.nodes(s.Curve.nodes.Count) s.Curve.AppendSubpathRectangle lastNode.PositionX, lastNode.PositionY, firstNode.PositionX, firstNode.PositionY End If Next sEnd Sub
what is the end result
Not sure of the purpose but...