Ich möchte mir gern alle Diagrammnamen und in der Spalte daneben den dazugehörenden Diagrammtitel anzeigen lassen. Ich wollte dafür das nachstehende Makro nutzen. Die Auflistung der Namen erfolgt anstandslos, aber die Auflistung der Titel erzeugt immer Fehler.
Ich würde mich sehr freuen, wenn mir gezeigt wird was falsch ist
Public Sub Diagnamen()
Dim objDia As ChartObject, i%
i = 1
For Each objDia In Worksheets("Tabelle1").ChartObjects
Tabelle3.Cells(i, 1) = objDia.Name
'In der nächsten Zeile kommt Fehler:Laufzeitfehler 1004,
Tabelle3.Cells(i, 2) = objDia.Chart.ChartTitle
i = i + 1
Next
End Sub
Gruß
Wolfgang