Sub Test() Dim opt As New StructExportOptions Dim flt As ExportFilter opt.ResolutionX = 300 opt.ResolutionY = 300 opt.ImageType = cdrCMYKColorImage opt.Compression = cdrCompressionLZW Set flt = ActiveDocument.ExportEx("C:\Temp\img.tif", cdrTIFF, cdrSelection, opt) flt.FinishEnd Sub