Bienenwabe mit Farben auslesen

Pepi · 2009-01-15T17:24:00+00:00

Halle Excel-Gemeinde Gibt es eine Möglichkeit die Farbnummern von der Bienenwabe (Menu-Schriftart-Ausfüllen-weitere Farben) rauszuschreiben (super wäre natürlich eine solche Bienenwabe zu erstellen) damit diese Farben im VBA-Code weiterverwendet werden können. Bis jetzt habe ich die 56 Farben mit .interior.colorindex aufgelistet, wäre aber schön, noch weitere Farben zu haben. Gruss aus Zürich Pepi

...der Farben oder der vbFkt RGB(rot, grün, blau) ausgehen, Pepi,
dann wird das einfacher. Die Fkt erzeugt dann die von dir genannte Nr. Dabei dürfen die Platzhalter rot, grün, blau Werte von 0...255 (dunkel...hell) annehmen. Wenn du lieber mit der xlFkt HEXINDEZ [Hex2Dec] arbeitest, musst du beachten das rot der kleinste Wert ist - also FFFFFF für Weiß. Außerdem ist zu beachten, dass VBA ohne Spezifizierung (durch Angabe im Code bzw Anwendung in einer udF, die in einem TabBlatt eingesetzt wird) stets auf die Standardindexfarben zugreift. Außerdem haben Zeichenobjekte teilweise andere und mehr Indizes als Zellen. Das alles ist aber hier nicht weiter wichtig, weil du ja mit RGB-Farben arbeiten willst. Du musst für deine ZObjj nur die richtigen Farbeigenschaften wählen (heißen anders als bei Zellen, aber das weißt du bestimmt).
In einem Webseiten-Tool habe ich mal gelesen, dass dort die Farben in Abständen von hex33 gebildet wurden (also 00 33 66 99 CC FF; MS bevorzugt dagegen 10er wie bspw 80). Das mag aber für die dunklen Farben zu wenig und die hellen zu viel sein.
Viel Spaß beim Experimentieren - da kriegst du den "Rest" schon alleine raus... ;-)
Gruß Luc :-?
NDS informieren besser!

Hi Pepi,
Kopier den Code in ein Modul.
Rufe in einer Zelle das Makro Test auf.


Option Explicit
Function ColorFromPallet(Optional lOldCol As Double = xlNone) As Double
Dim dSavCol As Double, dNewCol As Double
Dim iRGB_R As Integer, iRGB_G As Integer, iRGB_B As Integer
dSavCol = ActiveWorkbook.Colors(32)
If lOldCol = xlNone Then
ColIx2RGB 13160660, iRGB_R, iRGB_G, iRGB_B
Else
ColIx2RGB lOldCol, iRGB_R, iRGB_G, iRGB_B
End If
If Application.Dialogs(xlDialogEditColor).Show _
(32, iRGB_R, iRGB_G, iRGB_B) Then
ColorFromPallet = ActiveWorkbook.Colors(32)
ActiveWorkbook.Colors(32) = dSavCol
Else
ColorFromPallet = lOldCol
End If
End Function
Sub ColIx2RGB(ByVal lCol As Long, _
iR As Integer, iG As Integer, iB As Integer)
iR = lCol Mod 256:  lCol = lCol \ 256
iG = lCol Mod 256:  lCol = lCol \ 256
iB = lCol Mod 256
End Sub
Sub TEST()
Dim x As Variant
ActiveCell.Interior.Color = ColorFromPallet(ActiveCell.Interior.Color)
End Sub

Grüsse RS

Forumthread: Bienenwabe mit Farben auslesen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Bienenwabe mit Farben auslesen

Forumthread: Bienenwabe mit Farben auslesen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread