Sub Test() Dim opt As New StructExportOptions Dim pal As New StructPaletteOptions Dim flt As ExportFilter opt.ImageType = cdrPalettedImage pal.DitherType = cdrDitherStucki pal.DitherIntensity = 100 pal.NumColors = 16 pal.PaletteType = cdrPaletteOptimized Set flt = ActiveDocument.ExportEx("C:\Temp\img.gif", cdrGIF, cdrCurrentPage, opt, pal) flt.FinishEnd Sub