Segments.Count

Property Count As Long

Member of Segments

The Count property returns the number of segments in the Segments collection.

The Count property returns a read-only value.

The following code example displays the number of nodes, segments, and subpaths in the active curve:

Sub Test() 
 Dim crv As Curve 
 Set crv = ActiveShape.Curve 
 MsgBox "The curve contains:" & vbCr & _ 
  "Nodes: " & crv.Nodes.Count & vbCr & _ 
  "Segments: " & crv.Segments.Count & vbCr & _ 
  "Subpaths: " & crv.Subpaths.Count 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.