Chartobjekte je Tabelle nacheinander durchlaufen und ändern / vereinheitlichen

Wenn mehrere Chartobjekte auf verschiedene Tabellen verteilt sind, kann man diese
mittels VBA je Tabelle durchlaufen und Anpassungen / Vereinheitlichungen an den Chartobjekten durchführen.
Regelmäßig wiederkehrende Änderungen können dadurch automatisiert und manueller Pflegeaufwand reduziert werden.

So kann zB die Skalierung oder der Berichtstitel oder ... aller Chartobjekte mit einem Mausklick vereinheitlicht werden.

Methoden und Eigenschaften von Chartobjekten können der Excel Online Hilfe entnommen werden, die Möglichkeiten der programmgesteuerten Anpassung sind vielfältig.

Folgender VBA Code vereinheitlicht zur Verdeutlichung die Berichstitel aller Chartobjekte in einer Arbeitsmappe, in dem

- jede Tabelle nacheinander adressiert und
- jeder Berichtstitel je Chartobjekt in der Tabelle

verändert / vereinheitlicht wird.

--- CODE SCHNIPSEL BEGINN ---

Public Sub Charts_durchlaufen()

Dim i, j As Integer
Dim nCharts As Integer

With ActiveWorkbook

    For i = 1 To .Worksheets.Count

        nCharts = .Worksheets(i).ChartObjects.Count

              For j = 1 To nCharts
           
                'Hier steht der Programmcode, welcher auf das einzelne
                'Chartobjekt angewendet werden soll
               
                 'zB Tabellen- und Chartname ausgeben
                 MsgBox .Worksheets(i).Name & " - " & .Worksheets(i).ChartObjects(j).Name
               
                 'zB Berichtstitel vereinheitlichen
                 .Worksheets(i).ChartObjects(j).Activate
                    ActiveChart.ChartTitle.Text = "Hier steht die Botschaft"
           
              Next j
             
    Next i
     
End With

End Sub

--- CODE SCHNIPSEL ENDE ---