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.Finish
End Sub