VBA Color berechnen aber wie

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Col(Color As Long, Tas As Double) As Long Dim R Dim R1 Dim G Dim G1 Dim B Dim B1 R = Color Mod 256 G = (Color \ 256) Mod 256 B = (Color \ 256 \ 256) Mod 256 If Tas > 0 Then R1 = R + WorksheetFunction.RoundUp(Tas * (255 - R), 0) G1 = G + WorksheetFunction.RoundUp(Tas * (255 - G), 0) B1 = B + WorksheetFunction.RoundUp(Tas * (255 - B), 0) Else R1 = R + WorksheetFunction.RoundDown(Tas * R, 0) G1 = G + WorksheetFunction.RoundDown(Tas * G, 0) B1 = B + WorksheetFunction.RoundDown(Tas * B, 0) End If If R1

Sub FarbenTheme() Dim i Dim k Dim w Dim v For i = 1 To 12 Cells(2, i).Value = ThisWorkbook.Theme.ThemeColorScheme.Colors(i) Next For k = 1 To 12 v = 0.1 w = -0.1 For i = 1 To 10 Cells(i + 2, k).Interior.Color = Cells(2, k).Value Cells(i + 2, k).Interior.TintAndShade = v Cells(i + 2, k).Value = Cells(i + 2, k).Interior.Color v = v + 0.1 Next For i = 1 To 10 Cells(i + 12, k).Interior.Color = Cells(2, k).Value Cells(i + 12, k).Interior.TintAndShade = w Cells(i + 12, k).Value = Cells(i + 12, k).Interior.Color w = w - 0.1 Next Next End Sub

Das ist eben eine falsche Vermutung, Ewald:
Zitat: Ob die Farbe jetzt durch HSL oder RGB definiert wurde, ist Excel zunächst egal, es macht daraus die Colornummer(RGBLong) und wendet dann darauf TAS an. Deshalb bekommst du auch das gleiche Ergebnis.
T&S kann weder auf den Farbwert (.Color ⇒ [B,G,R]×256^[2…0]) noch dessen RGB-EinzelKomponenten angewendet wdn, sondern bezieht sich offensichtlich auf die Lightness des HSL-Farbraums, was ich mit meinen Bspp belegt habe. Folglich erfolgt in Xl intern eine Umrechnung, um einerseits die HSL-Werte auf Basis einer EDV-üblichen 2stellig hexadezimalen Codierung (hier dezimal angezeigt) präsentieren und andererseits dann auf die jeweilige Grundfarbe die genormten T&S-Faktoren anwenden zu können. Dabei wdn offensichtlich die RGB- in HSL-Werte umgerechnet, denn sie lassen sich ja nicht per VBA abrufen. Wenn man also T&S auf die Grundfarben der AkzentGruppen anwenden wollte, könnte das nur so erfolgen. Anderenfalls müsste man die RGB- bzw Farbwerte für alle GruppenElemente auslesen, so aber nur die FarbIndizes (→RGB-Farbwerte) des Farbschemas mit der ZusatzInfo, ob sie zu diesen Grundfarben zählen (deshalb zeigt mein AusleseBsp mit UDF ThColor für die jeweilige GrundFarbe auch nur deren FarbIndex, weil T&S=0 → sollte aber wohl zur leichteren Identifikation noch die GruppenNrAnzeige einarbeiten!).
Habe dabei festgestellt, dass trotz der geringen Abweichungen im Endergebnis des 2.Bsps die HSL die Gleiche ist. Folglich kann bei der Rückrechnung die Saturations-Abweichung (von der Grundfarbe) der HSL vernachlässigt wdn, denn sie passt sich dann wohl automatisch an.
Zitat: Wenn du dies aber in VBA machen willst gibt es Probleme. HSL arbeitet intern mit 0-240, Excel mit 0-255.
Das kann ich nicht nachvollziehen, Ewald. Im allgemeinen HSL-Modell reicht Hue von 0-360°, S&L dagg sind %-Werte, also 0-1 bzw 0-100%. Das Gleiche gilt übrigens auch für das allgemeine RGB-Modell, nur sind hier alle 3 Werte %-Angaben. Um den hexadezimalen Zahlenraum maximal auszunutzen wird in beiden Fällen auf 00-FF umgerechnet, woraus sich dann die einstellbaren MiniMax-Werte 0-255 ergeben, also auch für H! Das habe ich in den Fmln (deren Vorlage man auf den verlinkten Wikipedia-Seiten findet) meiner Bspp berücksichtigt. Allerdings haben bestimmte HSL-Einstellungen keine separaten RGB-Pendants, es gibt also etliche S/W(/Grau)-HSL-Einstellungen. Daher wird wohl auch deine Ansicht herrühren, nur ist das deutlich farbabhängig (vbGreen=#00FF00 hat zB ein S von 255=100%!).
Du siehst also (an meinen Bspp), es ist mir schon gelungen… ;-)
Gruß, Luc :-?

Sub FarbenTheme() Dim i Dim k Dim w Dim v For i = 1 To 12 Cells(2, i).value = ThisWorkbook.Theme.ThemeColorScheme.Colors(i) Next For k = 1 To 12 v = 0.1 w = -0.1 For i = 1 To 10 Cells(i + 2, k).Interior.Color = Cells(2, k).value Cells(i + 2, k).Interior.TintAndShade = v Cells(i + 2, k).value = Cells(i + 2, k).Interior.Color v = v + 0.1 Next For i = 1 To 10 Cells(i + 12, k).Interior.Color = Cells(2, k).value Cells(i + 12, k).Interior.TintAndShade = w Cells(i + 12, k).value = Cells(i + 12, k).Interior.Color w = w - 0.1 Next Next End Sub

…Ewald,
allerdings erzeugst du ja auch „nur“ Farben aus einer Grundfarbe in 10%-T&S-Schritten. So sehen aber die T&S-Werte der mit den MS-Original-Menüs erzeugten Farben (zumindest unter Xl12/2007) nicht aus. Meine UDF ThColor liest nämlich genau diese aus und rundet sie für die Wiedergabe als Text auf runde %. Da die OriginalWerte ganz krumme Zahlen mit vielen Dezimalen sind, scheint mir das dann doch darauf hinzudeuten, dass hier intern komplexe (FarbraumSystem-)Umrechnungen im Gange sind.
Übrigens enthalten die OriginalMenüs ja auch weniger Farben als deine SubProzedur erzeugt (die könnte sicher auch noch mehr erzeugen, hängt doch wohl nur von der T&S-Schrittweite ab!). Folgerichtig ist dann wohl auch, dass die erwähnte UDF (unter Xl12) keine der mit deinem (oder meinem Färbe-)Pgm erzeugten Farben als ThemeColor identifiziert und auch stets T&S=0 ist. Ich vermute hier eine ZusatzInfo, die durch ein anderes als das direkte Färben über das Original-Menü verloren geht (konnte ich feststellen) bzw gar nicht erst angelegt wird. (Evtl ist es aber auch nur der so kaum erreichbare Original-T&S-Faktor, der das auslöst.)
Die mit deinem Pgm erzeugten Farben entsprechen zwar weitestgehend den OriginalFarben, sind aber trotzdem nicht völlig mit ihnen identisch, auch bei gleichen Farb-, RGB- und sogar HSL-Werten. Das könnte aber auch „nur“ ein Xl12-Problem sein.
Allerdings ist in den Original-FarbMenüs (Xl12) ohnehin einiges durcheinander wie das Folgende zeigt:
Userbild

Das mag daran liegen, dass es neben dem msoThemeColorScheme- von 1-12 noch den msoThemeColor-Index von 1-16 gibt. Da kann auch ein MS-Pgmierer schon mal durcheinanderkommen… ;-]
Ansonsten habe ich ja auch nie behauptet, dass MS den RGB-Farbraum erfunden hätte. Sie haben ihn nur „hexadezimalisiert“. Aber, ob sie damit die Ersten waren… ;-)
Die HSL-RGB-UmrechnungsFmln stehen im von mir weiter oben verlinkten Artikel im engl Wikipedia. Auf dieser Basis habe ich die Fmln in meinem 2.Bsp entwickelt. Das ist natürlich noch nicht vollständig. Ich war aber auch eher an der komplexen Lösung für RGB interessiert, bei der man wie von dir gezeigt wohl auf die ganze Umrechnerei verzichten könnte, wenn Scheme-Index und T&S-Faktor bekannt sind. Dumm ist nur, dass es hier wie gezeigt (unter Xl12) zu Unstimmigkeiten kommt, die es teilweise komplizieren wdn. Ohne die korrekte Grundfarbe nutzt dann auch die ganze Umrechnerei nichts. Die müsste dann erst noch ermittelt wdn. Aber viell hat MS den Fehler ja mit Xl14/2010 beseitigt…
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Color berechnen aber wie

29 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread