Here is a sub routine that you can use:
---
Sub ConvertLongToRGB(ByVal Value As Long, R As Byte, G As Byte, B As Byte)
R = Value Mod 256
G = Int(Value / 256) Mod 256
B = Int(Value / 256 / 256) Mod 256
End Sub
---
- Chirag
PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html
"Dale Fye" <(E-Mail Removed)> wrote in message
news:18A7DE39-7D7B-4D72-B42E-(E-Mail Removed)...
>I have some long integer color values that I need to convert to RGB
>parameters.
>
> I saw a formula for this somewhere, but cannot remember the specifics and
> cannont find a referenece on-line.
>
> Dale
> --
>
> email address is invalid
> Please reply to newsgroup only.