API Documentation > CorelDRAW > 2025-v26 > StructPaletteOptions > IVGStructPaletteOptions
StructPaletteOptions.Palette property
Syntax:
Property Get Palette() As Variant
Property Let Palette(ByVal Value As Variant)
Remarks:
The Palette property specifies the palette when exporting a full-color image to a paletted bitmap.
Examples:
The following VBA example exports a document with the new custom color palette:
Sub Test()
Dim d As Document
Dim e As ExportFilter
Dim s As Shape
Dim sp As New StructPaletteOptions
Dim p As Palette
Set d = CreateDocument
Set s = d.ActiveLayer.CreateRectangle(3, 3, 7, 7)
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(0, 0, 255)
' Change the palette type to custom.
sp.PaletteType = cdrPaletteCustom
' Create a new palette and add some colors.
Set p = Palettes.Create("Temp")
p.AddColor CreateRGBColor(255, 0, 0)
p.AddColor CreateRGBColor(0, 0, 255)
p.AddColor CreateRGBColor(0, 255, 0)
' Set the palette to use for the export to the newly created palette.
sp.Palette = p
d.Export "C:\Test_ExportPalette_Passing_a_Palette.gif", cdrGIF, , , sp 
End Sub
The following VBA example exports a document with a custom palette that is identified by its path and filename:
Sub Test()
Dim d As Document
Dim e As ExportFilter
Dim s As Shape
Dim sp As New StructPaletteOptions
Set d = CreateDocument
Set s = d.ActiveLayer.CreateRectangle(3, 3, 7, 7)
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(0, 0, 255)
' Change the palette type to custom.
sp.PaletteType = cdrPaletteCustom
' Set the palette to use for the export to the filename of the existing palette.
sp.Palette = SetupPath & "Custom Data\Palettes\CMYK\Nature\cEarthy.xml"
d.Export "C:\Test_ExportPalette_Passing_a_Filename.gif", cdrGIF, , , sp 
End Sub
The following VBA example exports a document with a custom palette that is defined by an array of long values (which represent colors):
Sub Test()
Dim d As Document
Dim e As ExportFilter
Dim s As Shape
Dim sp As New StructPaletteOptions
Set d = CreateDocument
Set s = d.ActiveLayer.CreateRectangle(3, 3, 7, 7)
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(0, 0, 255)
' Change the palette type to custom.
sp.PaletteType = cdrPaletteCustom
' Set the palette to use for the export to an array of longs which represent the colors to use.
sp.Palette = Array(RGB(255, 0, 0), RGB(0, 0, 255), RGB(125, 0, 0), RGB(0, 0, 125), RGB(155, 0, 0), RGB(0, 0, 155), RGB(175, 32, 175))
d.Export "C:\Test_ExportPalette_Passing_an_array_of_longs.gif", cdrGIF, , , sp 
End Sub
The following VBA example exports a document with a custom palette that is defined by an array of colors:
Sub Test()
Dim d As Document
Dim e As ExportFilter
Dim s As Shape
Dim sp As New StructPaletteOptions
Set d = CreateDocument
Set s = d.ActiveLayer.CreateRectangle(3, 3, 7, 7)
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(0, 0, 255)
' Change the palette type to custom
sp.PaletteType = cdrPaletteCustom
' Set the palette to use for the export to an array of colors
sp.Palette = Array(CreateCMYKColor(0, 77, 23, 23), CreateCMYKColor(10, 23, 43, 54), CreateCMYKColor(54, 12, 88, 12))
d.Export "C:\Test_ExportPalette_Passing_an_array_of_colors.gif", cdrGIF, , , sp 
End Sub