Sub Test()
Dim opt As New StructExportOptions
Dim flt As ExportFilter
opt.SizeX = 100
opt.SizeY = 100
opt.ImageType = cdrCMYKColorImage
opt.Compression = cdrCompressionLZW
Set flt = ActiveDocument.ExportEx("C:\Temp\img.tif", cdrTIFF, cdrSelection, opt)
flt.Finish
End Sub