ShapeRange.Count

Property Count As Long

Member of ShapeRange

The Count property returns the number of shapes in the ShapeRange class.

The Count property returns a read-only value.

The following code example displays the number of ellipses on the active page:

Sub Test() 
 Dim sr As ShapeRange 
 Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape) 
 MsgBox "There are " & sr.Count & " ellipse(s) on the current page" 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.