I am using excel 2000

i use the following code to delete all the shape in a document

newBook.Worksheets(nameofsheet).Select
newBook.Worksheets(nameofsheet).Shapes.SelectAll
Selection.ShapeRange.Delete

It works fine with most document
but in two cases, there is an out of memory error at shapes.selectALL
but i think there is plenty of memory
could anyone tell me what is the cause and how to fix this?

Laguna,
What does .Shapes.Count equal ?

NickHK

"Laguna" wrote in message
...
I am using excel 2000

i use the following code to delete all the shape in a document

newBook.Worksheets(nameofsheet).Select
newBook.Worksheets(nameofsheet).Shapes.SelectAll
Selection.ShapeRange.Delete

It works fine with most document
but in two cases, there is an out of memory error at shapes.selectALL
but i think there is plenty of memory
could anyone tell me what is the cause and how to fix this?

Running your code with Comments on the sheet might cause that problem, and
some other types of shapes. Try -

newBook.Worksheets(nameofsheet).DrawingObjects.del ete

above shouldn't error even if the DrawingObjects count is zero

Regards,
Peter T

"Laguna" wrote in message
...
I am using excel 2000

i use the following code to delete all the shape in a document

newBook.Worksheets(nameofsheet).Select
newBook.Worksheets(nameofsheet).Shapes.SelectAll
Selection.ShapeRange.Delete

It works fine with most document
but in two cases, there is an out of memory error at shapes.selectALL
but i think there is plenty of memory
could anyone tell me what is the cause and how to fix this?

One more...

dim ictr as long
for ictr = newBook.Worksheets(nameofsheet).Shapes.count to 1 step -1
newBook.Worksheets(nameofsheet).Shapes.delete
next ictr



Laguna wrote:

I am using excel 2000

i use the following code to delete all the shape in a document

newBook.Worksheets(nameofsheet).Select
newBook.Worksheets(nameofsheet).Shapes.SelectAll
Selection.ShapeRange.Delete

It works fine with most document
but in two cases, there is an out of memory error at shapes.selectALL
but i think there is plenty of memory
could anyone tell me what is the cause and how to fix this?

--

Dave Peterson

Thank you for the help
i have used the code suggested by peter to solve the problem

and for Dave Peterson
I have used your apporach at beginning before i use the selectAll merhod
but this will lead to another error in some cases.