How to get rid of web page objects ?
zz ¼g¹D¡G
Not repro!!
but try this correction as well it can be caused by the OlObj being setted
to nothing at the end of the code
Private Sub deleteobjects()
Dim s As Worksheet, chrt As ChartObject, shp As Shape
Set s = ActiveSheet
Dim olObj As OLEObject
With s
For Each shp In .Shapes
.Shapes(.Shapes.Count).Delete
Next
For Each chrt In ChartObjects
.ChartObjects(.ChartObjects.Count).Delete
Next
For Each olObj In .OLEObjects
.OLEObjects(.OLEObjects.Count).Delete
Next
End With
Set s = Nothing
err.clear
Set olObj = Nothing
Set chrt = Nothing
Set shp = Nothing
End Sub
--
---
zz [MX]
cuasi-musico,semi-poeta y loco
Sorry, same error message came out at line "For Each chrt In
ChartObjects".
|