Farbe in Grau darstellen.

[balu]

Hallo Liebe Leute.

Ich möchte ganz gerne in einem Blatt verschiedene Farben zur Auswahl anbieten, die dann per Makro an anderer Stelle in Graustufen dargestellt werden.

Gibt es so ein Makro "schon fertig zu Kaufen ", oder wer kann mir bei der Erstellung behilflich sein?

Freue mich auf eure Antworten, und bedanke mich schon mal für eure Bemühungen .


Gruß
balu

[Karolus]

Hallo
Evtl. könntest "red", "green" und "blue" auf die Farbwerte anwenden, die drei Werte summieren ,durch 3 teilen und den erhaltenen Wert wieder an "RGB" verfüttern...hilft dass ?
Als Function etwa so:

Code: Alles auswählen

function grauwert( farbwert )
x = int( (red( farbwert ) + green(  farbwert ) + blue( farbwert )) / 3)
grauwert = rgb( x , x , x )
end function

als "farbwert" übergibst du ocell.cellBackColor

Gruß Karo

[balu]

Hallo Karo.

Sorry, aber irgendwie steh ich momentan mit deiner Function auf Kriegsfuß. Wie soll ich sie denn richtig aufrufen?

Code: Alles auswählen

=GRAUWERT(wert1;wert2;wert3)

Oder mach ich da was falsch, dass ich "Astronomisch hohe Zahlen* dabei raus bekomme? Beispielsweise 5592405 bei (255;211;32)

Aber ansonsten ist die Idee mit einer Function nicht schlecht. Danke dafür .


Gruß
balu

[Karolus]

Hallo
Ich hab mal ein Beispieldok gemacht:
edit:zusätzliche Formelspalte eingefügt.

farbe_zu_Grauwerten.ods

(16.66 KiB) 53-mal heruntergeladen

Gruß Karo

[balu]

Hallo Karo.

Recht Herzlichen Dank, damit komm ich nun zurecht.


Gruß
balu