ArrowHeads.Count

Property Count As Long

The Count property returns the number of arrowheads in the ArrowHeads collection of CorelDRAW.

The Count property returns a read-only value.

The following code example identifies all arrowheads of selected objects that have an index of one and replaces them with arrowheads that have an index equal to the total number of arrowhead objects. This replaces the selected arrowheads with the last arrowhead in the ArrowHeads collection.

Sub Count() 
 Dim s As Shape 
 Dim Arrow As ArrowHead 
 Set Arrow = ArrowHeads(ArrowHeads.Count) 
 For Each s In ActiveDocument.Selection.Shapes 
  If s.Outline.Type = cdrOutline Then 
   With s.Outline 
    If .StartArrow.Index = 1 Then 
     .StartArrow = Arrow 
    End If 
    If .EndArrow.Index = 1 Then 
     .StartArrow = Arrow 
    End If 
   End With 
  End If 
 Next s 
End Sub