View Single Post
  #19  
Old 05-05-2010, 19:27
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Count

That is correct. Here is a simple example to count all the ellipses in your document.
Code:
Sub CountEllipseShape() 
 Dim sr As ShapeRange 
 Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape) 
 MsgBox "There are " & sr.Count & " ellipse(s) on the current page" 
End Sub
-Shelby
Reply With Quote