Delete Curves

Sub Delete_H_Lines()
Dim sr As ShapeRange, s As Shape, h#
ActiveDocument.BeginCommandGroup "Delete_H_Lines"
Optimization = True
ActivePage.Shapes.All.AddToSelection
Set sr = ActiveSelectionRange
For Each s In sr
If s.SizeHeight <= 0.001 Then
s.Delete
End If
Next s
ActiveDocument.EndCommandGroup
Optimization = False
ActiveWindow.Refresh
End Sub

XenaPG said:

Whow can i delete all shapes with only 2 nodes? is there a simple line of code to do that?

You can use Corel Query Language (CQL) for that:

Sub delete_selected_2_node_curves()
Dim sr As ShapeRange

    Set sr = ActiveSelectionRange.Shapes.FindShapes(query:="@com.type = " & cdrCurveShape & "and @com.curve.nodes.count = " & 2)
    sr.Delete
End Sub