[CDR 2017-2021] Название цвета (список цветов)

[DukereD]

что-то мои поиски ни к чему не привели. Какие-то цвета пишутся норм, а какие-то из какой палитры не выбирай - всё одно "цвет без названия"
Подскажите где и как вытянуть макросом название из палитры?

 

[tohaa]

что-то мои поиски ни к чему не привели. Какие-то цвета пишутся норм, а какие-то из какой палитры не выбирай - всё одно "цвет без названия"
Подскажите где и как вытянуть макросом название из палитры?
Посмотреть вложение 167245

Не все цвета в палитре имеют имя. Но можно вывести процентовку.

 

[DukereD]

Не все цвета в палитре имеют имя. Но можно вывести процентовку.

так в том то и прикол, что выбираешь цвет с именем, а его потом не найти нигде в свойствах объекта.

 

[eugeny]

А как вы пытаетесь вытянуть, немного непонятно.
У любого цвета есть поля, которых обычно достаточно для получения информации из цвета/палитры:

color.SpotColorID, color.SpotColorName, color.PaletteIdentifier, color.tint

 

[DukereD]

со спот цветами да. там норм.
а вот например: обычный CMYK "Light BlueGreen"

 

[tohaa]

со спот цветами да. там норм.
а вот например: обычный CMYK "Light BlueGreen"

Посмотреть вложение 168323Посмотреть вложение 168321

 

[DukereD]

А чем вытянули? какая функция?

 

[tohaa]

А чем вытянули? какая функция?

Выложу только кусочек. Думаю поймете.

Dim CSPalette As Palette
Dim CSColor As color
Dim CStext As String  

Set CSPalette = Palettes.CreateFromSelection("DocColors", , True)

For Each CSColor In CSPalette.colors

CStext = CSColor.Name(False)

Set CSShape = CSLayer.CreateArtisticText(5, 5, CStext, , , "Arial", 6, Alignment:=cdrLeftAlignment)

Next CSColor