StructPaletteOptions.Smoothing

Property Smoothing As Long

The Smoothing property specifies the amount of smoothing of color transitions to minimize abrupt color changes.

The following code example exports the drawing to a GIF file using a 32-color optimized palette, and it applies a smoothing of 50% to the image:

Sub Test() 
 Dim pal As New StructPaletteOptions 
 Dim flt As ExportFilter 
 pal.NumColors = 32 
 pal.PaletteType = cdrPaletteOptimized 
 pal.Smoothing = 50 
 Set flt = ActiveDocument.ExportBitmap("C:\Temp\img.gif", cdrGIF, , 
cdrPalettedImage, PaletteOptions:=pal) 
 flt.Finish 
End Sub