Diagramme per Makro löschen

Bild

Betrifft: Diagramme per Makro löschen
von: Korbinian Schoder
Geschrieben am: 07.11.2003 15:32:04

Wie kann ich per Makro alle Diagramme im Arbeitsblatt löschen?

Cells.Select
Selection.Clear

löscht bloß den Inhalt der Tabelle.
Thx alot

Bild


Betrifft: AW: Diagramme per Makro löschen
von: K.Rola
Geschrieben am: 07.11.2003 15:45:12

Hallo,

Option Explicit

Sub charts_delete()
Dim ch As Shape
For Each ch In ActiveSheet.Shapes
  If ch.Type = 3 Then
    ch.Delete
  End If
Next
End Sub


Gruß K.Rola


Bild


Betrifft: AW: Diagramme per Makro löschen
von: Korbinian Schoder
Geschrieben am: 10.11.2003 13:46:00

Sorry, daß ich mich erst jetzt melde.
Das Makro tuts, vielen Dank !!


Bild


Betrifft: AW: Diagramme per Makro löschen
von: Michael Brueggemann
Geschrieben am: 07.11.2003 15:54:19

Hallo Korbinian,

so funktionierts:


Sub Diagramme_entfernen()
    Dim wks As Worksheet
    Dim chtChart As ChartObject
    
    ' Zeiger auf Worksheet setzen, das die Diagramme enthaelt
    Set wks = ThisWorkbook.Sheets(1)
    
    ' Alle Chart Objekte des Worksheets durchlaufen und ...
    For Each chtChart In wks.ChartObjects
    
        ' Chart entfernen
        chtChart.Delete
        
    Next chtChart
    
End Sub



CIAO
Michael


Bild

Beiträge aus den Excel-Beispielen zum Thema " Diagramme per Makro löschen"