Thread: Colors
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Geoff Geoff is offline
external usenet poster
 
Posts: 371
Default Colors

Hi Peter T
Thanks, thats great. Just knew it had to be simple.

Geoff

"Peter T" wrote:

Hi Geoff,

You need to coerce the Hex string to a value

frmcolor = Val(Sheets(1).Cells(i, 1).Value)

Be aware that in vba colours are read from Hex as BGR, not RGB as in html
#RRGGBB. However your sample colours correctly define pure black, white,
red, green & blue.

Regards,
Peter T

"Geoff" wrote in message
...
Hi
I have put the hex values of colors into Range("A1:A5").
&H0&
&HFFFFFF&
&HFF&
&HFF00&
&HFF0000&

How can i iterate through the range and use the hex value? The code below
fails with 'Mismatch'

Dim frm,frmcolor
For i =1 to 5
frmcolor = Sheets(1).Cells(i , 1).Value
frm.BackColor = frmcolor
Next

Appreciate any help.

T.I.A.

Geoff