Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pivotchart - Farben an Legende festmachen

Pivotchart - Farben an Legende festmachen
11.06.2013 16:55:43
M
Hallo,
ich habe folgende Herausforderung: ich trage mir Daten für eine Pivotauswertung per Makro zusammen. Nun ist es so, dass - je nachdem welche Daten vorhanden sind - die Farbenzuordnung des dazugehrigen Charts von Auswertung zu Auswertung variieren kann. So werden die drei Ausprägungen "hoch", "mittel", "niedrig" bestimmten Farben zugeordnet. Ich möchte nun, dass ich "hoch" immer in rot, "mittel" immer in gelb und "niedrig" immer in grün dargestellt bekomme. Wie bekomme ich das hin?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivotchart - Farben an Legende festmachen
11.06.2013 17:17:47
M
... habe schon den aktuellen Code, der aber stur von der ersten bis zur letzten Reihe dei Farben vergibt. Ich möchte das aber (wie oben beschrieben) abhängig von der Bezeichnung tun.
Sub Diagramm_Format(objChart As Chart)
Dim Reihe As Series
Dim K As Long, arrRGB(1 To 13, 1 To 3) As Long
'Farben-Daten für Diagrammdatenreihen.
K = 1: arrRGB(K, 1) = 255: arrRGB(K, 2) = 0: arrRGB(K, 3) = 0 'rot
K = 2: arrRGB(K, 1) = 255: arrRGB(K, 2) = 255: arrRGB(K, 3) = 0 'gelb
K = 3: arrRGB(K, 1) = 0: arrRGB(K, 2) = 128: arrRGB(K, 3) = 0 'dunkelgrün
K = 4: arrRGB(K, 1) = 237: arrRGB(K, 2) = 242: arrRGB(K, 3) = 247 'hellblau
K = 5: arrRGB(K, 1) = 255: arrRGB(K, 2) = 0: arrRGB(K, 3) = 255 'magenta
K = 6: arrRGB(K, 1) = 0: arrRGB(K, 2) = 0: arrRGB(K, 3) = 255 'blau
K = 7: arrRGB(K, 1) = 128: arrRGB(K, 2) = 0: arrRGB(K, 3) = 0 'rotbraun
K = 8: arrRGB(K, 1) = 0: arrRGB(K, 2) = 0: arrRGB(K, 3) = 128 'dunkelblau
K = 9: arrRGB(K, 1) = 0: arrRGB(K, 2) = 255: arrRGB(K, 3) = 0 'grün
K = 10: arrRGB(K, 1) = 128: arrRGB(K, 2) = 128: arrRGB(K, 3) = 0 'braun
K = 11: arrRGB(K, 1) = 128: arrRGB(K, 2) = 0: arrRGB(K, 3) = 128 'violett
K = 12: arrRGB(K, 1) = 0: arrRGB(K, 2) = 128: arrRGB(K, 3) = 128 'dunkeltürkis
K = 13: arrRGB(K, 1) = 128: arrRGB(K, 2) = 128: arrRGB(K, 3) = 128 'grau
For K = 1 To objChart.SeriesCollection.Count
Set Reihe = objChart.SeriesCollection(K)
With Reihe
If K 

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige