Dear newsgroupers,

In Excel 2007 I want to copy a worksheet that contains some shapes to a
new workbook and remove the shapes from the copy before I save the new
workbook.

When I use the expression:
ActiveSheet.Shapes.SelectAll
Selection.Delete

I get an error saying I am running low on memory.
I use a laptop with 1 GB of memory.

Is the code correct?
Is there another solution?

Please advise,

pablo k

Try

Activesheet.DrawingObjects.Delete

If this post helps click Yes
---------------
Jacob Skaria


"pablo k" wrote:

> Dear newsgroupers,
>
> In Excel 2007 I want to copy a worksheet that contains some shapes to a
> new workbook and remove the shapes from the copy before I save the new
> workbook.
>
> When I use the expression:
> ActiveSheet.Shapes.SelectAll
> Selection.Delete
>
> I get an error saying I am running low on memory.
> I use a laptop with 1 GB of memory.
>
> Is the code correct?
> Is there another solution?
>
> Please advise,
>
> pablo k
>

Yes, Jakob Skaria's solution works!

But I don't know what you mean with "click Yes"...

Thanks though

pablo k


Jacob Skaria schreef:
> Try
>
> Activesheet.DrawingObjects.Delete
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "pablo k" wrote:
>
>> Dear newsgroupers,
>>
>> In Excel 2007 I want to copy a worksheet that contains some shapes to a
>> new workbook and remove the shapes from the copy before I save the new
>> workbook.
>>
>> When I use the expression:
>> ActiveSheet.Shapes.SelectAll
>> Selection.Delete
>>
>> I get an error saying I am running low on memory.
>> I use a laptop with 1 GB of memory.
>>
>> Is the code correct?
>> Is there another solution?
>>
>> Please advise,
>>
>> pablo k
>>

See also this page for more info
http://www.rondebruin.nl/controlsobjectsworksheet.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"pablo k" <(E-Mail Removed)> wrote in message news:%(E-Mail Removed)...
> Dear newsgroupers,
>
> In Excel 2007 I want to copy a worksheet that contains some shapes to a
> new workbook and remove the shapes from the copy before I save the new
> workbook.
>
> When I use the expression:
> ActiveSheet.Shapes.SelectAll
> Selection.Delete
>
> I get an error saying I am running low on memory.
> I use a laptop with 1 GB of memory.
>
> Is the code correct?
> Is there another solution?
>
> Please advise,
>
> pablo k