VBA and the Color Palette

[craigg3]

I am using code to show the color palette, but cant seem to get the color to show up on the a cell, what code do I need to get the color from the palette to the cell.

If I am trying to apply color to range("A1") and I am using this code "Application.Dialogs(xlDialogColorPalette).Show" to show the palette how do I get it to put the color in the cell
Thanks

 

[Jack in the UK]

My pleasure

Jack

 

[ChrisN_UK]

Hi Nate,

Nice

Tried Your above sample and got an error however
I added following line in the declaration:

Dim CustomColors As Long

and now it running.

Warm regards,
Dennis

Hi Dennis,

I think you got the error because you had Option Explicit at the top of your module (I do the same), I tried using your modification and found it didn't work when I actually choose a custom colour, how with the following declaration below it does:

Dim CustomColors As String

I agree Dennis, this is nice, I'm kinda new to using API in VBA, so this code is a good knowledge widener for me