View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Peter T Peter T is offline
external usenet poster
 
Posts: 5,600
Default 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