Seite 1 von 1
Farbtabelle darstellen
Verfasst: Mi, 10.10.2007 16:15
von emtewe
Eigentlich sollte das nicht schwer sein...
Folgendes Problem:
Ich habe eineTabelle mit 8Bit RGB Farbwerten.
Jede Farbe wird durch einen Rot- Grün- und Blauanteil repräsentiert, im Bereich von 0-255
Weiß ist also 255 / 255 / 255
Rot ist 255 / 0 / 0
Grün 0 / 255 / 0
Gelb 255 / 255 / 0
usw...
Jetzt würde ich diese Farbwerte gerne in Farbe dastellen, hat irgendjemand eine Idee wie das gehen könnte.
Oder kennt jemand ein Programm mit dem das möglich ist?
Gruß
emtewe
Re: Farbtabelle darstellen
Verfasst: Mi, 10.10.2007 17:15
von Dreas
Hallo emtewe,
eigene Farben kannst Du definieren unter:
Menü - Extras - Optionen - OpenOffice.org - Farben.
Gruß Andreas
Re: Farbtabelle darstellen
Verfasst: Mi, 10.10.2007 18:57
von balu
Hallo Leute,
ich glaube er meint etwas anderes.
emtewe möchte bestimmt anhand der werte in der Zelle daneben die passende Farbe angezeigt bekommen. Wenn ich mich nicht vertue
Und das hört sich sehr stark nach Macro an. Oder?
Gruß
balu
Re: Farbtabelle darstellen
Verfasst: Mi, 10.10.2007 19:27
von Karolus
Hallo
Falls die RGB-Werte in einer Zelle im Muster :
255/0/0
geschrieben sind ? - lassen sich etwa folgdm. auslesen und als Hintergrundfarbe der Zelle setzten:
Code: Alles auswählen
sub Farbtabelle
odoc = thisComponent
otab = odoc.sheets(0) '1.Tabelle
ozell =otab.getcellbyposition(0,0) 'A1
farbwerte = split(ozell.string,"/")
ozell.cellbackcolor = RGB(farbwerte(0),farbwerte(1),farbwerte(2))
end sub
Gruß Karo
Re: Farbtabelle darstellen
Verfasst: Do, 11.10.2007 08:37
von emtewe
Danke schonmal für die Antworten.
Wieviele Farben sind denn auf diese Weise darstellbar, kann ich beliebig viele Farben auf diese Weise als Hintergrundfarbe definieren?
Gruß
emtewe
Re: Farbtabelle darstellen
Verfasst: Do, 11.10.2007 08:38
von emtewe
Karolus hat geschrieben:Falls die RGB-Werte in einer Zelle im Muster : 255/0/0 geschrieben sind ?
Die Werte stehen in drei Zellen nebeneinander.
Re: Farbtabelle darstellen
Verfasst: Do, 11.10.2007 09:11
von emtewe
Karolus hat geschrieben:...lassen sich etwa folgdm. auslesen und als Hintergrundfarbe der Zelle setzten:
Ich habe das gerade mal getestet, und die Zelle A1 mit dem Makro entsprechend gefärbt. Das schon ziemlich nah an dem was ich suche.
Was muss ich am Makro ändern, wenn ich den Hintergrund einer Zelle setzen möchte, von der sich links die Farbwerte in drei Zellen befinden?
Ich habe also 3 Zellen, in denen von links nach rechts die RGB-Farbwerte stehen, und ich würde gerne die vierte Zelle, also die rechts daneben, mit der entsprechenden Hintergrundfarbe versehen.
Es tut mir leid, aber ich habe mich mit Makros noch nicht viel beschäftigt.
Gruß
emtewe
Re: Farbtabelle darstellen
Verfasst: Do, 11.10.2007 09:25
von ghostwriter
Hallo emtewe,
versuche das mal:
Code: Alles auswählen
sub Farbtabelle_Neu
odoc = thisComponent
otab = odoc.sheets(0) '1.Tabelle
z = 0
for i = 0 to 19 'Schleife Zeile 1 bis 20 entsprechend der Anzahl Zeilen anpassen
ozell1 =otab.getcellbyposition(0,z) 'A bis z
myColor1=ozell1.value
ozell2 =otab.getcellbyposition(1,z) 'B bis z
myColor2=ozell2.value
ozell3 =otab.getcellbyposition(2,z) 'C bis z
myColor3=ozell3.value
ozell4 =otab.getcellbyposition(3,z) 'D bis z
ozell4.cellbackcolor = RGB (myColor1,myColor2,myColor3)
z = z +1
next i
end sub
Viel Erfolg.
Jakob
Re: Farbtabelle darstellen
Verfasst: Do, 11.10.2007 09:47
von emtewe
Das ist genau das was ich gesucht habe. Funktioniert wunderbar.
Danke an alle!
Gruß
emtewe