Kann ich das nicht so machen, dass die Darstellungen mit Farbe einfach eine niedrigere Plotorder haben müssen als ohne Farbe?
Klar geht das. Du musst lediglich mit einer Schleife die diversen Datenreihen eines Diagramms durchgehen und alle versteckten Reihen nach oben schieben.
For Each sc In Tabelle1.ChartObjects(1).Chart.SeriesCollection
If sc.Format.Fill.Visible = msoFalse Then
sc.PlotOrder = Tabelle1.ChartObjects(1).Chart.SeriesCollection.Count
End If
Next sc
Allerdings musst du zuvor die ganz unten sichtbar bleibende Reihe von Hand oder über ein anderes Makro einfärben. Wenn du diese also ohnehin sowieso anfasst, was hindert dich daran, gleich die Verschiebung mit zu erledigen? Vergib mir, aber ich versuche immer noch zu verstehen, wo dein Problem liegt?
Du sprichst ja von mehreren Diagrammen. Sind diese denn alle gleich aufgebaut? Ist also z.B. Firma bzw. Kategorie A zu einem bestimmten Zeitpunkt immer in Reihe 3? Wenn du nun also in Diagramm 1 eine Reihe einfärbst willst du dann nicht nur diese sondern dieselbe Kategorie auch in allen anderen Diagrammen nach unten an die X-Achse schieben? Wenn ja, ließe sich da was machen. Aber sicher meinst du was ganz Anderes. Und warum versteckst du die anderen Firmen nicht einfach durch Ausblenden der entsprechenden Daten-Zeilen/-Spalten? Die noch sichtbare Firma rutscht dann automatisch an die X-Achse.
Mr. K.
|