Palette.PaletteID

Property PaletteID As cdrPaletteID

The PaletteID property returns the ID of a color palette. You can use this ID to identify fixed color palettes such as PANTONE or Web-safe.

The PaletteID property returns a read-only value, cdrPaletteID.

The following code example opens the PANTONE Process color palette if it is not already open:

Sub Test() 
 Dim Found As Boolean 
 Dim pal As Palette 
 Found = False 
 For Each pal In Palettes 
  If pal.PaletteID = cdrPANTONEProcess Then 
   Found = True 
   Exit For 
  End If 
 Next pal 
 If Not Found Then Palettes.OpenFixed cdrPANTONEProcess 
End Sub