Sub Test() Dim opt As New StructExportOptions Dim flt As ExportFilter opt.ImageType = cdrRGBColorImage opt.Transparent = True Set flt = ActiveDocument.ExportEx("C:\Temp\img.cpt", cdrCPT10, cdrSelection, opt) flt.FinishEnd Sub