Deleting cliparts in excel sheet
in [General]
|
Prev: Why is hyperlink staying imbedded when I insert rows into Excel?
Next: what does the broom icon mean and how do i get rid of it?
From: Don Guillett on 2 Jun 2010 18:43 Ron, OP sent me the workbook which had none of these problems so I sent a simple solution.. -- Don Guillett Microsoft MVP Excel SalesAid Software dguillett(a)gmail.com "Ron de Bruin" <rondebruin(a)kabelfoon.nl> wrote in message news:OW6r4TpALHA.5536(a)TK2MSFTNGP02.phx.gbl... > Warning : I suggest not to use code like this because it is possible that > It will delete the AutoFilter dropdowns > It will delete the Data>Validation(List option) dropdowns > Excel crash if there are comments on the sheet > > See this page for other code > http://www.rondebruin.nl/controlsobjectsworksheet.htm > > > > > -- > > Regards Ron de Bruin > http://www.rondebruin.nl/tips.htm > > > > "Don Guillett" <dguillett1(a)gmail.com> wrote in message > news:uUMIXfmALHA.5476(a)TK2MSFTNGP06.phx.gbl... >> Sub NOSHAPES()' Removes ALL SHAPES >> For Each WS In ThisWorkbook.Sheets >> For Each SH In WS.Shapes >> SH.Delete >> Next SH >> Next WS >> End Sub >> >> >> -- >> Don Guillett >> Microsoft MVP Excel >> SalesAid Software >> dguillett(a)gmail.com >> "Karina" <Karina(a)discussions.microsoft.com> wrote in message >> news:8992F371-2C59-4A34-BA48-EE35D6FE00D2(a)microsoft.com... >>> Already sent you the file, thanks. >>> >>> "Don Guillett" wrote: >>> >>>> If desired, send your file to my address below. I will only look >>>> if: >>>> 1. You send a copy of this message on an inserted sheet >>>> 2. You give me the newsgroup and the subject line >>>> 3. You send a clear explanation of what you want >>>> 4. You send before/after examples and expected results. >>>> >>>> >>>> -- >>>> Don Guillett >>>> Microsoft MVP Excel >>>> SalesAid Software >>>> dguillett(a)gmail.com >>>> "Karina" <Karina(a)discussions.microsoft.com> wrote in message >>>> news:0229808E-7B41-4A36-809E-45C3148A9F91(a)microsoft.com... >>>> >I have an excel sheet in wich I paste everyday new information, >>>> >replacing >>>> >the >>>> > previous day information. There's a clipart that has been pasted over >>>> > and >>>> > over, now the file is very slow and I can't erase all the cliparts >>>> > (thousands). In excel 2003 it was possible to select all the cliparts >>>> > in >>>> > one >>>> > step, now in 2007 I can't and it's impossible for me to erase the >>>> > cliparts >>>> > one by one. >>>> > >>>> > Please help! >>>> >>>> . >>>> >>
From: Ron de Bruin on 3 Jun 2010 13:21 Ok, but I would go for this to be sure 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/tips.htm "Don Guillett" <dguillett1(a)gmail.com> wrote in message news:uvRi8TqALHA.4920(a)TK2MSFTNGP04.phx.gbl... > Ron, OP sent me the workbook which had none of these problems so I sent a > simple solution.. > > -- > Don Guillett > Microsoft MVP Excel > SalesAid Software > dguillett(a)gmail.com > "Ron de Bruin" <rondebruin(a)kabelfoon.nl> wrote in message > news:OW6r4TpALHA.5536(a)TK2MSFTNGP02.phx.gbl... >> Warning : I suggest not to use code like this because it is possible that >> It will delete the AutoFilter dropdowns >> It will delete the Data>Validation(List option) dropdowns >> Excel crash if there are comments on the sheet >> >> See this page for other code >> http://www.rondebruin.nl/controlsobjectsworksheet.htm >> >> >> >> >> -- >> >> Regards Ron de Bruin >> http://www.rondebruin.nl/tips.htm >> >> >> >> "Don Guillett" <dguillett1(a)gmail.com> wrote in message >> news:uUMIXfmALHA.5476(a)TK2MSFTNGP06.phx.gbl... >>> Sub NOSHAPES()' Removes ALL SHAPES >>> For Each WS In ThisWorkbook.Sheets >>> For Each SH In WS.Shapes >>> SH.Delete >>> Next SH >>> Next WS >>> End Sub >>> >>> >>> -- >>> Don Guillett >>> Microsoft MVP Excel >>> SalesAid Software >>> dguillett(a)gmail.com >>> "Karina" <Karina(a)discussions.microsoft.com> wrote in message >>> news:8992F371-2C59-4A34-BA48-EE35D6FE00D2(a)microsoft.com... >>>> Already sent you the file, thanks. >>>> >>>> "Don Guillett" wrote: >>>> >>>>> If desired, send your file to my address below. I will only look >>>>> if: >>>>> 1. You send a copy of this message on an inserted sheet >>>>> 2. You give me the newsgroup and the subject line >>>>> 3. You send a clear explanation of what you want >>>>> 4. You send before/after examples and expected results. >>>>> >>>>> >>>>> -- >>>>> Don Guillett >>>>> Microsoft MVP Excel >>>>> SalesAid Software >>>>> dguillett(a)gmail.com >>>>> "Karina" <Karina(a)discussions.microsoft.com> wrote in message >>>>> news:0229808E-7B41-4A36-809E-45C3148A9F91(a)microsoft.com... >>>>> >I have an excel sheet in wich I paste everyday new information, >>>>> >replacing >>>>> >the >>>>> > previous day information. There's a clipart that has been pasted over >>>>> > and >>>>> > over, now the file is very slow and I can't erase all the cliparts >>>>> > (thousands). In excel 2003 it was possible to select all the cliparts >>>>> > in >>>>> > one >>>>> > step, now in 2007 I can't and it's impossible for me to erase the >>>>> > cliparts >>>>> > one by one. >>>>> > >>>>> > Please help! >>>>> >>>>> . >>>>> >>> >
From: Don Guillett on 3 Jun 2010 13:35
Good point -- Don Guillett Microsoft MVP Excel SalesAid Software dguillett(a)gmail.com "Ron de Bruin" <rondebruin(a)kabelfoon.nl> wrote in message news:OIC9BF0ALHA.3840(a)TK2MSFTNGP02.phx.gbl... > Ok, but I would go for this to be sure > 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/tips.htm > > > > "Don Guillett" <dguillett1(a)gmail.com> wrote in message > news:uvRi8TqALHA.4920(a)TK2MSFTNGP04.phx.gbl... >> Ron, OP sent me the workbook which had none of these problems so I sent a >> simple solution.. >> >> -- >> Don Guillett >> Microsoft MVP Excel >> SalesAid Software >> dguillett(a)gmail.com >> "Ron de Bruin" <rondebruin(a)kabelfoon.nl> wrote in message >> news:OW6r4TpALHA.5536(a)TK2MSFTNGP02.phx.gbl... >>> Warning : I suggest not to use code like this because it is possible >>> that >>> It will delete the AutoFilter dropdowns >>> It will delete the Data>Validation(List option) dropdowns >>> Excel crash if there are comments on the sheet >>> >>> See this page for other code >>> http://www.rondebruin.nl/controlsobjectsworksheet.htm >>> >>> >>> >>> >>> -- >>> >>> Regards Ron de Bruin >>> http://www.rondebruin.nl/tips.htm >>> >>> >>> >>> "Don Guillett" <dguillett1(a)gmail.com> wrote in message >>> news:uUMIXfmALHA.5476(a)TK2MSFTNGP06.phx.gbl... >>>> Sub NOSHAPES()' Removes ALL SHAPES >>>> For Each WS In ThisWorkbook.Sheets >>>> For Each SH In WS.Shapes >>>> SH.Delete >>>> Next SH >>>> Next WS >>>> End Sub >>>> >>>> >>>> -- >>>> Don Guillett >>>> Microsoft MVP Excel >>>> SalesAid Software >>>> dguillett(a)gmail.com >>>> "Karina" <Karina(a)discussions.microsoft.com> wrote in message >>>> news:8992F371-2C59-4A34-BA48-EE35D6FE00D2(a)microsoft.com... >>>>> Already sent you the file, thanks. >>>>> >>>>> "Don Guillett" wrote: >>>>> >>>>>> If desired, send your file to my address below. I will only >>>>>> look if: >>>>>> 1. You send a copy of this message on an inserted sheet >>>>>> 2. You give me the newsgroup and the subject line >>>>>> 3. You send a clear explanation of what you want >>>>>> 4. You send before/after examples and expected results. >>>>>> >>>>>> >>>>>> -- >>>>>> Don Guillett >>>>>> Microsoft MVP Excel >>>>>> SalesAid Software >>>>>> dguillett(a)gmail.com >>>>>> "Karina" <Karina(a)discussions.microsoft.com> wrote in message >>>>>> news:0229808E-7B41-4A36-809E-45C3148A9F91(a)microsoft.com... >>>>>> >I have an excel sheet in wich I paste everyday new information, >>>>>> >replacing >>>>>> >the >>>>>> > previous day information. There's a clipart that has been pasted >>>>>> > over and >>>>>> > over, now the file is very slow and I can't erase all the cliparts >>>>>> > (thousands). In excel 2003 it was possible to select all the >>>>>> > cliparts in >>>>>> > one >>>>>> > step, now in 2007 I can't and it's impossible for me to erase the >>>>>> > cliparts >>>>>> > one by one. >>>>>> > >>>>>> > Please help! >>>>>> >>>>>> . >>>>>> >>>> >> |