rgb

[June]

Through VBA how do I get the individual RGB colours for the interior of a
cell?

 

[Bob Phillips]

June,

Here is a function, and an example test

Public Function GetRGB(colour As Long, ByRef red, ByRef green, ByRef blue)

red = colour And &HFF
green = colour \ 256 And &HFF
blue = colour \ 256 ^ 2 And &HFF

End Function


Sub test()
Dim vRed, vGreen, vBlue

GetRGB ActiveCell.Interior.Color, vRed, vGreen, vBlue
Debug.Print vRed, vGreen, vBlue

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[June]

Thanks Bob

June,

Here is a function, and an example test

Public Function GetRGB(colour As Long, ByRef red, ByRef green, ByRef blue)

red = colour And &HFF
green = colour \ 256 And &HFF
blue = colour \ 256 ^ 2 And &HFF

End Function


Sub test()
Dim vRed, vGreen, vBlue

GetRGB ActiveCell.Interior.Color, vRed, vGreen, vBlue
Debug.Print vRed, vGreen, vBlue

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)