Sub Test() Dim pal As New StructPaletteOptions Dim flt As ExportFilter pal.PaletteType = cdrPaletteNetscape Set flt = ActiveDocument.ExportBitmap("C:\Temp\img.gif", cdrGIF, , cdrPalettedImage, PaletteOptions:=pal) flt.FinishEnd Sub