[CDR 2017-2021] Количество прозрачностей и rgb заливок

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
Можно ли не перебирая объекты узнать количество прозрачностей и rgb заливок/абрисов?
В информации о файле эта информация есть...
1625039743016.png
 

BSG_ganjawars

Участник
Сообщения
27
Реакции
9
Что-то ничего не понял. Вы же их уже узнали из свойств документа.
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Ну, видимо, он хочет сразу доступ к этим данным, из экономии времени
Нет, из VBA никак невозможно без читерства
Как номинант на самое извращенное решение - повеситься на эвент изменения документа и каждый раз обновлять эту инфу в каком то укромном месте
 

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
Да, хотелось из инфы их вытащить...

Перебором подсказали только про обводки
Код:
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

а про обводку и прозрачности не могу докумекать как
 

mnemonix

ॐ मणि पद्मे हूँ
Сообщения
576
Реакции
174
Untitled-1.jpg
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Да, хотелось из инфы их вытащить...
Попробуйте в метаданных внутри CDR поковыряться, но, IMHO навряд ли, вдобавок, как я понимаю, вам же это в открытом документе сразу посмотреть надо без сохранения?
В приведенном фрагменте кода вообще то, наоборот, заливки, причем униформные
Если брать всевсевсе то код получится неслабый, покурите исходники ColorReplacer там все это описано подробнейшим образом
 
  • Спасибо
Реакции: izrukvruki

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835

dastin

Некромант-любитель
12 лет на форуме
Сообщения
2 131
Реакции
2 027
не тянуть - просто установить и пользоваться ... кстати он и на 2021 работает - только надо каталог скопировать с предыдущих версий и в Addons 2021 разместить

...ЗЫ я ж так понимаю - человек ищет чтобы изничтожить эту "красоту"
 
Последнее редактирование:

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Ну по смыслу вопрося явно можно догадаться, что человеку не рыба нужна, но удочка. Иначе проще всего б было в встроенное info посмотреть без всяких макросов
 

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
Я понял, что решение не имеет практического смысла. Проще и быстрее пользоваться либо встроенной инфой, либо макросами от Санчаса или Риона...

Сделал себе упрощающий для сдачи в типографию макеты макрос, подумал что неплохо бы в него встроить инфу (или даже конвертацию) о RGB и о прозрачностях... Но логично это проверять до подготовки макета в типографию...
1625116655438.png
 

mnemonix

ॐ मणि पद्मे हूँ
Сообщения
576
Реакции
174
Странно, ни разу не врал мне скрипт.

Untitled-1.jpg