Difference between revisions of "Color to RGB"
From scripting
(Created page with " Function Color_to_RGB(Color As Long) As Variant Dim CurRGB() As Integer ReDim CurRGB(2) CurRGB(0) = Color Mod 256 CurRGB(1) = (Color \ 256) Mod 256 CurRGB(2) = (Co...") |
(No difference)
|
Latest revision as of 05:16, 22 April 2017
Function Color_to_RGB(Color As Long) As Variant Dim CurRGB() As Integer ReDim CurRGB(2) CurRGB(0) = Color Mod 256 CurRGB(1) = (Color \ 256) Mod 256 CurRGB(2) = (Color \ 256 \ 256) Mod 256 Color_to_RGB = CurRGB End Function