Finding all AutoShapes in workbook
 

I just came across and AutoShape in a spreadsheet which has a macro assigned
to it. The name of this shape is AutoShape40. This has prompted me to look
and see if there are any other AutoShapes in the model AND are they assigned
to these same macros. What is the easiest way for me to find all the
autoshapes in the model? I am assuming it using a For Next Loop using some
sort of AutoShape collection. I am then assuming that I need to check if
shapes exist and some how trap their location. Perhaps by using the parent
property to trap the sheet name. Any ideas?
Sub ShapeIdentify ()
Dim sh as Worksheet
Dim Shape As Object

For each sh in Worksheets
For each Shape in Shapes
IF Shape exists (???????)
Msgbox("Shape exist on sheet:" & Shape.Parent.Name & ", and is
called: " Shape.Name)
End if
Next
Next sh
End Sub

Thanks

Finding all AutoShapes in workbook
 

Hi Rob. I cannot see an attachment in the newsgroup here. Acutally, I did
not know you could attach anyting here!

Where should I be looking for it?

EM

"Rob Bovey" wrote:

"ExcelMonkey" wrote in message
...
What is the easiest way for me to find all the
autoshapes in the model?

I've attached a utility workbook I use for this purpose. It dumps all
the information about all of the shapes in the currently active workbook
onto its Shapes worksheet. Activate the workbook you want to analyze and run
the EnumerateShapes macro.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books

Finding all AutoShapes in workbook
 

Sorry Rob. I just followed the website link

Thanks

"Rob Bovey" wrote:

"ExcelMonkey" wrote in message
...
What is the easiest way for me to find all the
autoshapes in the model?

I've attached a utility workbook I use for this purpose. It dumps all
the information about all of the shapes in the currently active workbook
onto its Shapes worksheet. Activate the workbook you want to analyze and run
the EnumerateShapes macro.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books