- Сообщения
- 1 864
- Реакции
- 306
Можно ли не перебирая объекты узнать количество прозрачностей и rgb заливок/абрисов?
В информации о файле эта информация есть...
В информации о файле эта информация есть...
For Each sh In ActiveDocument.ActiveLayer.SelectableShapes
If sh.Fill.Type = cdrUniformFill Then
If sh.Fill.UniformColor.Type = cdrColorRGB Then
CountProzr = CountProzr + 1
sh.Fill.UniformColor.ConvertToCMYK
End If
End If
next sh
Попробуйте в метаданных внутри CDR поковыряться, но, IMHO навряд ли, вдобавок, как я понимаю, вам же это в открытом документе сразу посмотреть надо без сохранения?Да, хотелось из инфы их вытащить...
В приведенном фрагменте кода вообще то, наоборот, заливки, причем униформныепро обводки
CDR PreFlight Санчовский не? Благо он теперь фриДа, хотелось из инфы их вытащить...
Из санческого код так просто не вытянутьCDR PreFlight Санчовский не?
не тянуть - просто установить и пользоваться ... кстати он и на 2021 работает - только надо каталог скопировать с предыдущих версий и в Addons 2021 разместитьне вытянуть