Get RGB from cell color.

[Legacy 98055]

This came up with from a reply to:
http://216.92.17.166/board/viewtopic.php?topic=25527&forum=2&3
I usually do a screen capture to Paint Shop Pro to get the RGB, but thought it would be nice to have a function which would get the Red, Green, Blues's from a cell. I could settle for a chart. Have seen them on the net. But I would still like to have this function available if anyone has a clue on how to do it.
Thanks,
Will keep looking myself
Tom

 

[NateO]

Hello Tom, based on some of David McRitchie's fine handy work from:

http://216.239.33.100/search?q=cach...l/colors.htm+"mcritchie"+"rgb"&hl=en&ie=UTF-8

I played with the following with some success in xl2000:

<pre>
Function showRGB2(rcell)
Dim myStr As String
Application.Volatile
myStr = Right("000000" & Hex(rcell.Interior.Color), 6)
showRGB2 = Application.Evaluate("=Hex2dec(""" & Right(myStr, 2) & """)") & _
", " & Application.Evaluate("=Hex2dec(""" & Mid(myStr, 3, 2) & """)") & ", " _
& Application.Evaluate("=Hex2dec(""" & Left(myStr, 2) & """)")
End Function</pre>

Hope this helps.

 

[Legacy 98055]

Thanks Nate.
Tis perfectly what I wanted.
Tom