The Count property returns the number of shapes in a shape range.
Examples:
The following VBA 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