Diagramme eines Arbeitsmappe auflisten

Bild

Betrifft: Diagramme eines Arbeitsmappe auflisten
von: Florian
Geschrieben am: 01.12.2003 10:07:00

Hallo zusammen

Ich hab folgendes Problem:

Ich wollte alle Diagramme einer Arbeitsmappe in einem separaten Arbeitsblatt auflisten. Jedoch funktioniert folgender Code nicht:


Sub diagramme_auflisten()
Sheets("inhalt").Select
x = 1
For Each ch In Charts
If ch.Index <> 1 Then Range("a" & x - 1).Value = ch.Name
x = x + 1
Next ch
End Sub


Bitte um schnelle Hilfe
Danke
Bild


Betrifft: AW: Diagramme eines Arbeitsmappe auflisten
von: Daniel P
Geschrieben am: 01.12.2003 10:52:42

Hi Florian,

wäre interessant zu wissen, was nicht funktioniert. Aber vielleicht ist es Chartobjects statt Charts:


Function ListCharts()
Dim oWS As Worksheet
Dim oCH As ChartObject
    For Each oWS In ActiveWorkbook.Worksheets
        Debug.Print oWS.Name
        For Each oCH In ActiveSheet.ChartObjects
            Debug.Print "  "; oCH.Name
        Next
        Debug.Print
    Next
End Function


Daniel


Bild

Beiträge aus den Excel-Beispielen zum Thema " Diagramme eines Arbeitsmappe auflisten"