PANTONE to custom color
Hi alexT
You are thinking along the right lines, customize one of the 56 palette
colours. A simple way might be like this -
Choose the coloured square on the palette you want to customize, and fill a
cell with that colour
With this cell still active, run this
Sub Test()
Dim x As Long
x = ActiveCell.Interior.ColorIndex
If x 0 Then ActiveWorkbook.Colors(x) = RGB(10, 110, 210)
End Sub
If interested I have a workbook that will display 1,000+ typical print
colours (roughly similar to those in the link provided by Jim), the 140
named wed colours, and another large print swatch.
Regards,
Peter T
pmbthornton at gmail com
"AlexT" wrote in message
oups.com...
Folks
Many thanks for all those excellent resources.
I might very well have overlooked something but I was under the
impression that all I woud need to do is to lookup the PANTONE
equivalence and then do something like
Cells(i + 1, 1).Interior.color = myPantone
well... That doesn't work... So I guess I have to first define one of
the 56 colors as being my Pantone and then assign it. I might be stupid
but I'm not quite sure as of how to do this...
Best regards
--alexT
|