Sub Test() Dim pal As New StructPaletteOptions Dim flt As ExportFilter pal.NumColors = 10 pal.PaletteType = cdrPaletteOptimized pal.DitherType = cdrDitherFloyd pal.DitherIntensity = 100 Set flt = ActiveDocument.ExportBitmap("C:\Temp\img.gif", cdrGIF, , cdrPalettedImage, PaletteOptions:=pal) flt.FinishEnd Sub