I have been given this excel workbook to fix. The workbook has 12
worksheets (one for each month). In the top, left-hand corner of each
worksheet is an image. My mission is to delete this image on each of
the 12 worksheets - but I can't do it.

It appears to me that there are hundreds of images stacked on each
sheet. I can select the image. I can move the image. I can resize
the image. I can delete the image. But what ever I try, there seems to
be another image underneath it!! I have sat for up to 30 minutes
trying to delete one image after the other to get to the bottom of the
pile, but there is no end. Also, as my computer is processing my
command (the delete for example) the image appears to jiggle, for
seconds, as though it is processing through hundreds of stacked images.

Is my theory of stacked images correct? If so, is there a way to
select all the images at once and delete them in one step (I have tried
to select the area by dragging my mouse across it, but I only appear to
be selecting the cells beneath the image, not the image(s)
it(them)selves)?

When I look at the image properties, I see nothing of any help. I am
quite experienced with excel but I have never seen anything like this.
Has anyone had any experience with this crazy situation?

Thank you in advance for your suggestions,
L

Try

F5
Special
Objects
OK
Delete

Or try this macro on each sheet

Sub Shapes1()
'Delete all Objects except Comments
On Error Resume Next
ActiveSheet.DrawingObjects.Visible = True
ActiveSheet.DrawingObjects.Delete
On Error GoTo 0
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



wrote in message ps.com...
I have been given this excel workbook to fix. The workbook has 12
worksheets (one for each month). In the top, left-hand corner of each
worksheet is an image. My mission is to delete this image on each of
the 12 worksheets - but I can't do it.

It appears to me that there are hundreds of images stacked on each
sheet. I can select the image. I can move the image. I can resize
the image. I can delete the image. But what ever I try, there seems to
be another image underneath it!! I have sat for up to 30 minutes
trying to delete one image after the other to get to the bottom of the
pile, but there is no end. Also, as my computer is processing my
command (the delete for example) the image appears to jiggle, for
seconds, as though it is processing through hundreds of stacked images.

Is my theory of stacked images correct? If so, is there a way to
select all the images at once and delete them in one step (I have tried
to select the area by dragging my mouse across it, but I only appear to
be selecting the cells beneath the image, not the image(s)
it(them)selves)?

When I look at the image properties, I see nothing of any help. I am
quite experienced with excel but I have never seen anything like this.
Has anyone had any experience with this crazy situation?

Thank you in advance for your suggestions,
L

I've seen that "stacking" thing before. This is a quick and dirty macro
that should delete images on your screen.

Sub Macro1()
Dim ShapeName As Shape

For Each ShapeName In ActiveSheet.Shapes
ActiveSheet.Shapes(ShapeName.Name).Delete
Next ShapeName
End Sub

Try that on a backed up copy of your file: paste it in as a macro, and
run.

Have you tried the "Select Multiple Objects" tool which might be on the
Drawing Toolbar.
If it's not there then go Tools|Customize...|Commands tab|Click on
"Drawing" in the Categories box on the left then click and drag the
"Select Multiple Objects" tool to the Drawing toolbar.
Click the tool then click Select All then press the Delete key.

Ken Johnson

Hi Dave

Warning:

Sub Macro1()
Dim ShapeName As Shape

For Each ShapeName In ActiveSheet.Shapes
ActiveSheet.Shapes(ShapeName.Name).Delete
Next ShapeName
End Sub

See this page why
http://www.rondebruin.nl/controlsobjectsworksheet.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Dave O" wrote in message ups.com...
I've seen that "stacking" thing before. This is a quick and dirty macro
that should delete images on your screen.

Sub Macro1()
Dim ShapeName As Shape

For Each ShapeName In ActiveSheet.Shapes
ActiveSheet.Shapes(ShapeName.Name).Delete
Next ShapeName
End Sub

Try that on a backed up copy of your file: paste it in as a macro, and
run.

Hi, Ron- good point. Thanks.

HOLY COW!! Ron, your first suggestion kicked butt!!

I'm going to try the other suggestions on the other worksheets but the
first suggestion that I tried worked beautifully: F5, Special...,
Objects, OK, Delete !! Beautiful, elegant, simple!!

Thank you all so much for your suggestions!!
L