Color to RGB

From scripting
Jump to: navigation, search
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