VBA: Interior.Color zadané pomocí HEXA Vyřešeno

[d1amond]

Zdravím,

věděl by někdo chytřejší než já, jak by se dala zadat barva pomocí HEXA kódu?


//update

Kód: Vybrat vše

Function HexToLongRGB(sHexVal As String) As Long
    Dim lRed As Long
    Dim lGreen As Long
    Dim lBlue As Long

    lRed = CLng("&H" & Left$(sHexVal, 2))
    lGreen = CLng("&H" & Mid$(sHexVal, 3, 2))
    lBlue = CLng("&H" & Right$(sHexVal, 2))

    HexToLongRGB = RGB(lRed, lGreen, lBlue)

End Function

Funguje výborně.

[Reklama]

[guest]

Z jakého systému do jakého, resp. do jaké vlastnosti? VB barva, HTML barva? Příklad...

[d1amond]

Do formuláře Excel zadávám HEXA kód barvy a potřebuji to používat dále. Konkrétně např. pro BACKCOLOR u labelu.

[guest]

Hexa jako HTML kód barvy? Příklad... Do vlastnosti lze zapsat VB formát barvy, co že je také převrácený HEXa kód:

Syntaxe barvy (v hexadecimálním tvaru) ve VBA má následující podobu:

&HxxBbGgRr&

xx ... 80 pro předdefinovanou barvu, 00 pro barvu vlastní
BbGgRr ... odpovídá v HTML(CSS) zápisu barvě #RrGgBb, přičemž Rr, Gg, Bb jsou hexadecimální tvary barev v systému RGB (jak vidíte, v definici je obrácené pořadí)

Příklad
&H00F7EBDF&
trojice zleva H00 ... vlastní barva
a pak dvojice odzadu:
DF ... červená (R) barva, hexadecimální tvar čísla 223
EB ... zelená (G) barva, hexadecimální tvar čísla 235
F7 ... modrá (B) barva, hexadecimální tvar čísla 247
RGB(223, 235, 247) ... definice barvy v systému RGB
#DFEBF7 ... definice barvy v HTML (CSS)

jinak třeba
http://excelplus.net/news.php?readmore=140

[d1amond]

Zadávám právě ten HTML kód barvy (např. FF00FF) do pole formuláře a potřebuji, aby na základě něj vyplnil label.BackColor. Níže uvedená fce mi to plní bez výhrad.
Jinak díky za tip na tu konverzi, to se hodí určitě také, když budu potřebovat sbírat údaje z buňky na základě barvy.