Sub Test() Dim opt As New StructExportOptions Dim flt As ExportFilter opt.AntiAliasingType = cdrNoAntiAliasing Set flt = ActiveDocument.ExportEx("C:\Temp\img.gif", cdrGIF, cdrCurrentPage, opt) flt.FinishEnd Sub