- Сообщения
- 1 841
- Реакции
- 304
Подскажите, пожалуйста как экспортировать с прозрачностью
Сейчас на .Transparency = 2 выдает ошибку, раньше (в X3) работало...
.Transparency = 1 и .Transparency = 0 - без прозрачности получается
Код:
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 - без прозрачности получается