[CDR 2023] Задать цвет из пользовательской палитры

[keramer82]

Доброго времени суток! Подскажите, пожалуйста, как создать цвет из пользовательской палитры? В VBA корел разбираюсь откровенно слабо. Просто цвет создать просто, а вот взять его из пользовательской палитры не получается. Сама палитра вроде открывается, а вот при попытке взять из нее цвет, корел ругается или не находит палитру. Помогите, пожалуйста, правильно написать код, чтобы из палитры SortColor.xml можно было присвоить цвету color_1 по индексу.

    Dim color_1 As New Color
    Palettes.Open "C:\Users\111\Documents\Corel\Corel Content\Palettes\SortColor.xml"
    Dim index As Integer
    
    Set regColor = CreateRegistrationColor 'работает
    Set WhiteColor = CreateCMYKColor(0, 0, 0, 0) 'работает
    index = 2
    Set color_1 = CreatePaletteColor(SortColor, index) 'пишет, что не удается найти палитру

 

[dastin]

ругается или не находит

прочтите - мне кажется тут есть всё что вам необходимо

 

[keramer82]

Спасибо! Получается, что пантоны в палитре придется обрабатывать отдельно, CMYK отдельно. Я думал, что это как-то попроще... Выбрал палитру, выбрал индекс – получил цвет из этой палитры, не важно какой он. Жаль, что это не так работает.

Set c = CreateSpotColor(SortColor, index)

срабатывает, только нужно в индексе учитывать цвета CMYK, и отнимать от него их количество. А CMYK тогда отдельно буду обрабатывать. Спасибо за помощь!