Diagramm einfärben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

'Erstellt unter Excel 2007 Sub Diag_FlaechenWeiss() Dim oChart As Chart, oReihe As Series Set oChart = Charts("Diagramm1") 'Diagramm auf eigenem Blatt ' Set oChart = Worksheets("test").ChartObjects(1).Chart 'Diagramm eingebettet in Tabellenblatt For Each oReihe In oChart.SeriesCollection With oReihe.Format With .Fill 'Füllfarbe .Solid .ForeColor.RGB = RGB(Red:=255, Green:=255, Blue:=255) 'weiß .BackColor.RGB = 1 'schwarz End With With .Line 'rahmenlinie .Visible = 1 .Weight = 1 .DashStyle = msoLineSolid .ForeColor.RGB = RGB(Red:=0, Green:=0, Blue:=0) 'schwarz .BackColor.RGB = RGB(Red:=0, Green:=0, Blue:=0) 'schwarz End With End With Next End Sub

Hallo Franz,
vielen Dank für die schnelle Antwort.
Grundsätzlich hast Du natürlich Recht :) ... aber ;)
schau mal meinen Thread weiter unten
https://www.herber.de/forum/archiv/1148to1152/t1150727.htm
Ich möchte als nächsten Schritt einzelne Felder (Balken)
entsprechend ebenfalls einfärben.
Also: kann man einzelnen Balken via VBA so einfärben
wie ich sie in einer separaten Zellbereichen via bedingter Formatierung
eingefärbt habe. Wenn z.B. die Zelle P4 grün markiert ist, soll der entsprechende Balken auch
grün gefärbt sein. Wenn die Zelle P5 rot ist - dann ebenfalls der entsprechende Balken auch rot
usw.
Ich hoffe, ich konnte mir verständlich ausdrücken :O
Freu mich auf eine Antwort
Mit bestem Gruß
Stef@n

Hallo Karin,
ich habe mir das mal angeschaut - und festgestellt, dass ich damit nicht so richtig weiterkomme ..
liegt wohl daran, dass meine VBA-Kenntnisse "nicht so doll sind"
Deshalb hoffe ich auf Deine Hilfe :)
Zu diesem Zweck möchte ich die Datei hochgeladen, aus der mein Ziel hervorgeht.
herber.de hat die Grenze zum Upload leider begrenzt auf 300 kb - die Datei ist
aufgrund der Pivot-Auswertung leider 361 kb gross.
Deshalb hab ich dir die Datei an die auf Deiner I-Seite genannten email-Adresse
hochgeladen - entsprechender Betreff ist ergänzt - ist also kein Spam ;)
Ich hoffe, dass ist OK !
Ziel ist es, die Balken im "Diagramm3" so einzufärben, wie sie in der Tabelle "61111-0007"
in der Spalte G9..169 beispielhaft formatiert sind.
In einer ganz alten Datei von mir (Du hattest mir damals den Code hier in Herber zur Verfügung gestellt)
habe ich einen Code, der ein Diagramm so eingefärbt hat, wie es in der Zeile 26 als Zellfarbe eingefärbt ist
Es hat perfekt funktioniert ! :) --- siehe Code DatenreihenFärben
In der Beispiel-Datei habe ich alle relevanten Daten inkl. Erläuterungen ergänzt
und würde mich sehr freuen, wenn Du mir mit deinem Diagramm-KnowHow weiterhelfen könntest.
Liebe Karin, ich würde mich sehr freuen, wenn Du weiterhelfen kannst / möchtest :))
Mit bestem Gruß
Stef@n

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread