Delete pictures in spreadsheet

[Guest]

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.

 

[Guest]

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

 

[Guest]

Thanks, Hutch. The macro worked great!
Seedman

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

 

[Ron de Bruin]

Warning

Not use code like this

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

 

[davesexcel]

here's a simple code

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