Window Error when deleting shapes

[Guest]

i am suing excel 2000 vba and win 2000 platform
I use the following code to delete all shapes in a worksheet

Do While Book.Worksheets(nameofsheet).Shapes.Count >
Book.Worksheets(nameofsheet).Shapes(Book.Worksheets(nameofsheet).Shapes.Count).Delete
Loop

Sometimes the excel tell that a windows error and the process is terminated
during the middle. I do the similar operation with other sheets, there is no
error.
Somtimes the process can run successfully. The error is by chance.

I have tried to use a more powerful machine with same platform to test it.
It stilll have such error by chance.

What can i do to avoid the error, or how can this delete shape method be
improved?

Thank you!

 

[Jim Cone]

It is usually best to make the sheet with the shapes the active sheet
when doing anything with shapes.
I've seen the same problem you describe and I believe the cause
lies with a shape index number being outside of the count range.
Here is an alternative you can try...

Sub RemoveAllShapes()
Worksheets("Sheet4").Select
Worksheets("Sheet4").Shapes.SelectAll
Selection.ShapeRange.Delete
End Sub

Jim Cone
San Francisco, USA



i am suing excel 2000 vba and win 2000 platform
I use the following code to delete all shapes in a worksheet

Do While Book.Worksheets(nameofsheet).Shapes.Count > 0
Book.Worksheets(nameofsheet).Shapes(Book.Worksheets(nameofsheet).Shapes.Count).Delete
Loop

Sometimes the excel tell that a windows error and the process is terminated
during the middle. I do the similar operation with other sheets, there is no
error.
Somtimes the process can run successfully. The error is by chance.

I have tried to use a more powerful machine with same platform to test it.
It stilll have such error by chance.

What can i do to avoid the error, or how can this delete shape method be
improved?

Thank you!