Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Window Error when deleting shapes
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.Worksheet s(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! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Window Error when deleting shapes
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 "Laguna" wrote in message ... 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.Worksheet s(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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Deleting Shapes | Excel Discussion (Misc queries) | |||
Deleting shapes in an area | Excel Programming | |||
Deleting shapes | Excel Programming | |||
Deleting shapes | Excel Programming | |||
Deleting shapes crashes for me. (Excel 97 vba) | Excel Programming |