Delete pictures in spreadsheet
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. |
Delete pictures in spreadsheet
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. |
Delete pictures in spreadsheet
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. |
Delete pictures in spreadsheet
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" wrote in message ... 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. |
Delete pictures in spreadsheet
here's a simple code Sub deletepic() Worksheets("sheet1").Pictures.Delete End Sub -- davesexcel ------------------------------------------------------------------------ davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708 View this thread: http://www.excelforum.com/showthread...hreadid=566094 |
All times are GMT +1. The time now is 06:18 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com