Objekt löschen

Bild

Betrifft: Objekt löschen
von: golem
Geschrieben am: 14.11.2003 09:07:59

Hallo,
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?
Bild


Betrifft: AW: alle Diagramme löschen
von: Galenzo
Geschrieben am: 14.11.2003 09:24:05

Hallo,
machst du so:

ActiveSheet.ChartObjects.Delete

- unn weg sind se ...

Viel Erfolg


Bild


Betrifft: Dankeschön! o.T.
von: golem
Geschrieben am: 14.11.2003 09:31:05




Bild


Betrifft: doch noch ne Frage!!!!!!!!!!!!!!
von: golem
Geschrieben am: 14.11.2003 09:34:26

ActiveSheet.ChartObjects.Delete ->löscht Diagramme

Was gibts noch für Objekte?
Geht das dann so: XY=Objektname
ActiveSheet.XYObjects.Delete


Bild

Beiträge aus den Excel-Beispielen zum Thema " Objekt löschen"