Diagrammvorlage auf mehrere Diagramme übertragen
27.06.2018 10:19:30
Mesut
ich habe eine Makros erstellt mit dem ich das Format aller Diagramme anhand einer Diagrammvorlage gleichzeitig ändern kann. Bei einem Blatt zeigt mir das Makro jedoch einen Fehler an:
Laufzeitfehler '1004'
Die Methode 'ApplyChartTemplate' für das Objekt '_Chart' ist fehlgeschlagen.
Hier mein Makro:
Sub DiagrammtypZwei()
Dim cht As ChartObject
With ActiveSheet
For Each cht In .ChartObjects
cht.Select
ActiveChart.ApplyChartTemplate ( _
"C:\Users\Mesut\AppData\Roaming\Microsoft\Templates\Charts\Diagramm2.crtx")
Next
End With
End Sub
Ich habe jetzt gelesen, dass es Diagramm- und Arbeitsblätter gibt, jedoch kann ich den Unterschied in meiner Excel-Datei nicht erkennen. Die Arbeitsblätter sind eigentlich alle gleich. Das Makro funktioniert bei 10 von 11 Arbeitsblättern (oder doch Diagrammblättern?)
Ich meine aber, dass das Makro auf ein normales Arbeitsblatt ausgerichtet ist. Eventuell kann mir einer helfen und mir sagen wo mein Denkfehler liegt oder mir ein Tipp geben wie ich das Makro auf Diagrammblätter anwende?:)
Vielen Dank!