Delete pictures in spreadsheet

[seedman]

How can I get rid of a company logo that I imported into my spreadsheet
several years ago and has grown to over 45000 duplications (layered). It has
grown from repeated copy and paste functions while using the spreadsheet. I'm
using Excel 97 and can't find a delete tab. Thanks.

[Tom Hutchins]

This macro will delete all shapes in the active workbook:

Sub DelAllShapes()
Dim Shp As Shape, WS As Worksheet
On Error Resume Next
'Check every worksheet in the workbook
For Each WS In ActiveWorkbook.Worksheets
WS.Activate
'Delete any other shapes on the sheet.
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
Next WS
End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Hope this helps,

Hutch

"seedman" wrote:

> How can I get rid of a company logo that I imported into my spreadsheet
> several years ago and has grown to over 45000 duplications (layered). It has
> grown from repeated copy and paste functions while using the spreadsheet. I'm
> using Excel 97 and can't find a delete tab. Thanks.

[seedman]

Thanks, Hutch. The macro worked great!
Seedman

"Tom Hutchins" wrote:

> This macro will delete all shapes in the active workbook:
>
> Sub DelAllShapes()
> Dim Shp As Shape, WS As Worksheet
> On Error Resume Next
> 'Check every worksheet in the workbook
> For Each WS In ActiveWorkbook.Worksheets
> WS.Activate
> 'Delete any other shapes on the sheet.
> For Each Shp In ActiveSheet.Shapes
> Shp.Delete
> Next Shp
> Next WS
> End Sub
>
> If you're new to macros, you may want to read David McRitchie's intro at:
> http://www.mvps.org/dmcritchie/excel/getstarted.htm
>
> Hope this helps,
>
> Hutch
>
> "seedman" wrote:
>
> > How can I get rid of a company logo that I imported into my spreadsheet
> > several years ago and has grown to over 45000 duplications (layered). It has
> > grown from repeated copy and paste functions while using the spreadsheet. I'm
> > using Excel 97 and can't find a delete tab. Thanks.

[Ron de Bruin]

Warning

Not use code like this

>> For Each Shp In ActiveSheet.Shapes
>> Shp.Delete
>> Next Shp

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



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



"seedman" <[email protected]> wrote in message news:[email protected]...
> Thanks, Hutch. The macro worked great!
> Seedman
>
> "Tom Hutchins" wrote:
>
>> This macro will delete all shapes in the active workbook:
>>
>> Sub DelAllShapes()
>> Dim Shp As Shape, WS As Worksheet
>> On Error Resume Next
>> 'Check every worksheet in the workbook
>> For Each WS In ActiveWorkbook.Worksheets
>> WS.Activate
>> 'Delete any other shapes on the sheet.
>> For Each Shp In ActiveSheet.Shapes
>> Shp.Delete
>> Next Shp
>> Next WS
>> End Sub
>>
>> If you're new to macros, you may want to read David McRitchie's intro at:
>> http://www.mvps.org/dmcritchie/excel/getstarted.htm
>>
>> Hope this helps,
>>
>> Hutch
>>
>> "seedman" wrote:
>>
>> > How can I get rid of a company logo that I imported into my spreadsheet
>> > several years ago and has grown to over 45000 duplications (layered). It has
>> > grown from repeated copy and paste functions while using the spreadsheet. I'm
>> > using Excel 97 and can't find a delete tab. Thanks.

[davesexcel]

here's a simple code

Sub deletepic()
Worksheets("sheet1").Pictures.Delete
End Sub