| Name | Type | Description |
|---|---|---|
| Document | Specifies the settings to apply |
Sub Test() Dim crv As Curve Dim s As Shape Dim sp As SubPath Set crv = Application.CreateCurve(ActiveDocument) Set sp = crv.CreateSubPath(1, 5) sp.AppendLineSegment 2, 0 sp.AppendCurveSegment2 5, 7, 6, 6, 3, 5 sp.AppendCurveSegment2 7, 2, 3, 6, 7, 1 sp.AppendLineSegment 9, 6 sp.Nodes(3).Type = cdrSmoothNode Set s = ActiveLayer.CreateCurve(crv) End Sub You can also use the New keyword to create a curve in memory. Dim crv As Curve Set crv = New Curve