PDA

Vollständige Version anzeigen : Hintergrundfarbe aus Zelle auslesen und Datenpunkt in Diagramm zuweisen


cheyenne
25.08.2017, 17:06
Ich erzeuge diverse Diagramme per VBA aus einer Tabelle heraus. In einer Spalte kann man die FArbe vorherbestimmen, indem man die Hintergrundfarbe der Zelle setzt.

Diese kann ich auslesen, geht prima:
Sheets("unsichtbar_H2").Range("D3").Interior.Color

Ich kann dem Diagramm auch Farbe zuweisen, geht auch prima:
ActiveChart.SeriesCollection(1).Points(count).Select
With Selection.Format.Fill
.Visible = msoTrue
.Forecolor.RGB= Sheets("unsichtbar_H2").Range("D" & count).Interior.Color
End With

Diese Eigenschaft möchte aber nun gerne RGB, die Anweisung, die auf der Zelle funktioniert gibt Hex zurück, also z.B. 65535

Die Eigenschaft Interior.color kennt das Diagramm erwartungsgemäß nicht.

Also: Ich bräuchte entweder beides in RGB oder beides in hex, wer weiß Rat? Ich freue mich über jeden Tipp

Beverly
25.08.2017, 17:17
Hi,

das sollte nicht an Interior.Color liegen, denn RGB erkennt auch die Color-Nummer. Was ist das Problem bei deinem Code - wird nicht die richtige Farbe dargestellt oder erzeugt der Code einen Laufzeitfeheler (und wenn ja, was sagt der Debugger genau)?

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

cheyenne
25.08.2017, 17:36
interior.color gibt es halt nicht. Wenn ich alles in fix zuweise, klappt es.

Meine Frage lautet eigentlich wie kann ich entweder einem Datenpunkt einen Hexwert als Farbe zuweisen
oder
wie kann ich die Farbe in RGB aus einer Zelle auslesen?

cheyenne
25.08.2017, 17:37
was heisst RGB kennt auch die Colornummer? RGB erwartet nach meinem Kenntnisstand 3 Parameter 0...255, wie würde man da z.B. 65535 angeben?

Beverly
25.08.2017, 22:33
Du hast meine Frage nicht beantwortet.
Zum Rest - siehe Anhang.

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>