Dim ce(5) As CurveElement
 Dim crv As Curve
 ce(0).ElementType = cdrElementStart
 ce(0).PositionX = 0
 ce(0).PositionY = 0
 ce(1).ElementType = cdrElementLine
 ce(1).NodeType = cdrSmoothNode
 ce(1).PositionX = 1
 ce(1).PositionY = 1
 ce(2).ElementType = cdrElementControl
 ce(2).PositionX = 2.5
 ce(2).PositionY = 2

 ce(3).ElementType = cdrElementControl
 ce(3).PositionX = 3
 ce(3).PositionY = 2
 ce(4).ElementType = cdrElementCurve

ce(4).NodeType = cdrSmoothNode
 ce(4).PositionX = 4
 ce(4).PositionY = 1
 ce(5).ElementType = cdrElementLine
 ce(5).PositionX = 5
 ce(5).PositionY = 0
 Set crv = CreateCurve(ActiveDocument)
 crv.CreateSubPathFromArray ce
 ActiveLayer.CreateCurve crv
 
End Sub

Sub Macro7()
Dim crv As Curve
    Set crv = ActiveShape.Curve
    MsgBox "PositionX:" & ActiveShape.PositionX & vbCr & _
    "PositionY:" & ActiveShape.PositionX & vbCr & _
    "Другие характеристики кривой:" & vbCr & _
        "Nodes: " & crv.Nodes.Count & vbCr & _
        "Segments: " & crv.Segments.Count & vbCr & _
        "Subpaths: " & crv.SubPaths.Count
      
End Sub