leider weiss ich keinen Rat mehr, wie ich meine Legenden-Inhalte sowohl in der Reihenfolge als auch in der Darstellung, also Vorgabe "Anzahl Zeilen oder Spalten" ändern kann.
Die Reihenfolge wird durch das automatische Erstellen per Makro immer wieder zerworfen, wenn ich in einem Diagramm "Flächen" darstellen lasse.
Ich habe in der Primärebene gestapelte Säulen, in der Sekundärebene gestapelte Flächen und eine zusätzliche Line.
Sowohl das testen mit dem Verschieben in andere Achsen als auch die Lesereihenfolge der Daten hat nix gebracht. Gibt es eine Lösung?
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Charttype = xlColumnStacked
ActiveChart.SeriesCollection(1).AxisGroup = 1
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).Charttype = xlColumnStacked
ActiveChart.SeriesCollection(2).AxisGroup = 1
ActiveChart.SeriesCollection(3).Select
ActiveChart.SeriesCollection(3).Charttype = xlColumnStacked
ActiveChart.SeriesCollection(3).AxisGroup = 1
ActiveChart.SeriesCollection(4).Select
ActiveChart.SeriesCollection(4).Charttype = xlColumnStacked
ActiveChart.SeriesCollection(4).AxisGroup = 1
ActiveChart.SeriesCollection(5).Select
ActiveChart.SeriesCollection(5).Charttype = xlColumnStacked
ActiveChart.SeriesCollection(5).AxisGroup = 1
ActiveChart.SeriesCollection(6).Select
ActiveChart.SeriesCollection(6).Charttype = xlAreaStacked
ActiveChart.SeriesCollection(6).AxisGroup = 2
ActiveChart.SeriesCollection(7).Select
ActiveChart.SeriesCollection(7).Charttype = xlAreaStacked
ActiveChart.SeriesCollection(7).AxisGroup = 2
ActiveChart.SeriesCollection(8).Select
ActiveChart.SeriesCollection(8).Charttype = xlAreaStacked
ActiveChart.SeriesCollection(8).AxisGroup = 2
ActiveChart.SeriesCollection(9).Select
ActiveChart.SeriesCollection(9).Charttype = xlAreaStacked
ActiveChart.SeriesCollection(9).AxisGroup = 2
ActiveChart.SeriesCollection(10).Select
ActiveChart.SeriesCollection(10).Charttype = xlAreaStacked
ActiveChart.SeriesCollection(10).AxisGroup = 2
ActiveChart.SeriesCollection(11).Select
ActiveChart.SeriesCollection(11).Charttype = xlLine
ActiveChart.SeriesCollection(11).AxisGroup = 2
Desweiteren möchte ich meine Legende so gestalten, wie ich es am besten finde, also bspw. 2 Zeilen, 6 Spalten, doch auch hier weiss ich mir keinen Rat.
Ich danke im Voraus,
Beste Grüsse
Patrick