Versuche, viele Zeichen in einer aktiven Arbeitsmappe zu ändern

Question

Ich versuche, einen Code zu schreiben, der die Eigenschaften vieler Diagramme in einer Arbeitsmappe ändert, die aktiv ist. Alle meine Blätter in diesem Arbeitsbuch haben Diagramme.

Sub ChangeGraphType() 
    Dim cht As ChartType 
    For Each cht In ActiveWorkbook.Charts 
     cht.Type = xlArea 'change collumns to area type 
    Next cht 
End Sub 

Aber wenn ich es laufe, ändern sich meine Graphen nicht. Bitte, wo ist mein Fehler? Danke vielmals!

Answer 1

Ohhh, ich denke, die Lösung könnte zwei Schleifen sein: eine für die Diagramme und die andere für die Blätter. Ich habe den folgenden Code ausprobiert und es hat funktioniert.

Ich weiß nicht, ob es einen anderen Weg gibt ohne Schleife, aber ich denke, es macht mehr Sinn.