Objekt löschen
14.11.2003 09:07:59
golem
mit folgendem Code wollte ich alle Diagramme des Tabellenblatts löschen:
Sub Objekte_löschen()
Dim Obj OLEObject
For Each Obj In ActiveSheet.OLEObjects
If Left(Obj.Name, 3) = "Dia" Then
Obj.Delete
End If
Next
End Sub
Leider geht er nie in die If Anweisung.
Warum?
Anzeige