Alle Diagramme eines Tabellenblattes in einer Schleife bearbeiten

[Purple-Haze]

Hallo,

ich habe ein Tabellenblatt mit mehreren Diagrammen. Die Objekte dieser Diagramme sollen in VB formartiert werden (Farbe, Rahmen usw. usw.)

Die Befehle für die Formartierung sind nicht das Problem. Ich bekomme es aber einfach nicht hin, alle Diagramme in einer Schleife zu bearbeiten. Also ungefähr so:

For (oder With ?) each diagramm in worksheet

.Farbe des Rahmens
.Farbe der Datenreihen
.usw.
.usw.

Vielen Dank für Eure Hilfe.

Purple haze

 

[thekorn]

Guten Abend...
Mein Vorgehen bei solch einem Problem:
Wörterbuch aufschlagen: aus Diagramm wird CHART
Objektbibliothek öffnen und nach einer Auflistung von CHART-Objekten suchen. Erste Möglichkeit CHARTS, die Hilfe (F1) sagt sofort, dass dies nicht die Lösung des Problems ist, sondern dass CHARTSOBJECTS das übergeordnete Objekt darstellt.
Mit dem Ansatz FOR EACH .... NEXT folgt dann folgendes:

For Each Diagramm In Sheets(1).ChartObjects
    With Diagramm.Chart
        .HasTitle = True
        .ChartTitle.Text = "Überschrift"
    End With
Next

Viel Spass damit

gruß
thekorn