[CDR 2017-2021] Прозрачность в PNG

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
Подскажите, пожалуйста как экспортировать с прозрачностью

Код:
For Each pg In ActiveDocument.Pages
        pg.Activate

        Set expPNGfiltr = ActiveDocument.ExportBitmap("Z:/Äèçàéíåð/" + name_file + "_" + Str(pg.Index) + ".png", cdrPNG, cdrCurrentPage, _
        cdrRGBColorImage, , , opt.ResolutionX, opt.ResolutionY, cdrSupersampling, , True, True)
    
        With expPNGfiltr
            .Interlaced = True
            .Transparency = 2
            .InvertMask = False
            .Color = 0
            .Finish
        End With
        
    Next pg

Сейчас на .Transparency = 2 выдает ошибку, раньше (в X3) работало...
.Transparency = 1 и .Transparency = 0 - без прозрачности получается
 

dastin

Некромант-любитель
12 лет на форуме
Сообщения
2 131
Реакции
2 027
Function ExportBitmap(FileName As String, Filter As cdrFilter, [Range As cdrExportRange = cdrCurrentPage], [ImageType As cdrImageType = cdrRGBColorImage], [Width As Long], [Height As Long], [ResolutionX As Long = 72], [ResolutionY As Long = 72], [AntiAliasingType As cdrAntiAliasingType = cdrNormalAntiAliasing], [Dithered As Boolean = False], [Transparent As Boolean = False], [UseColorProfile As Boolean = True], [MaintainLayers As Boolean = False], [Compression As cdrCompressionType = cdrCompressionNone], [PaletteOptions As StructPaletteOptions], [ExportArea As Rect]) As ExportFilter
 

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
У меня стоит TRUE

opt.ResolutionY, cdrSupersampling, , True, True
 

dastin

Некромант-любитель
12 лет на форуме
Сообщения
2 131
Реакции
2 027
А что готовый штатный FileConverter не хотите использовать?
116034
 

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
Экспорт в PNG это только часть функционала

Я вспомнил, почему не работает... Прозрачность не поддерживает cdrSupersampling. Если ставить cdrNormalAntiAliasing - то все работает