Shapes
02.01.2004 13:45:34
Beat
Bei wenig Shapes funktioniert diese Procedur einwandfrei, ab einer gewissen Anzahl kommt keine VBA Fehlermeldung, sondern das Excel meldet sich ab (Excel hat ein Problem festgestellt........)
Private Sub DeleteAllShapes(ws As Worksheet)
Dim i As Long
If ws Is Nothing Then Exit Sub
With ws
For i = .Shapes.Count To 1 Step -1
On Error Resume Next
.Shapes(i).Delete
On Error GoTo 0
Next i
End With
End Sub
Hat jemand eine Idee an was das liegen könnte ?
Mit bestem Dank zum Voraus
Beat
Anzeige