[CDR 2024] Перекраска градиента

[iKoolk]

Коллеги, бодрый день.
Нужно перекрасить градиент сделанный одним пантоном в градиент сделанный другим пантоном (с инверсией).
Подскажите что не так, пожалуйста
If s.Fill.Type = cdrFountainFill Then
For i = 0 To s.Fill.Fountain.Colors.Count - 1
If UCase(s.Fill.Fountain.Colors.Item(i).Color.SpotColorName) = "PANTONE BLACK C" Then
s.Fill.ApplyFountainFill.Colors.Item(i).Color CreateSpotColor("85b8548b-1506-4ffe-9ff6-2e80f8abbb53", 12,_ Abs(s.Fill.Fountain.Colors.Item(i).Color.Tint - 100))
End If
Next i
End If

Или подскажите как

Спасибо

 

[eugeny]

что-то вы там намудрили. Разбейте на две строки:

dim newClr As New Color

newClr.SpotAssign "85b8548b-1506-4ffe-9ff6-2e80f8abbb53", 12, Abs(s.Fill.Fountain.Colors.Item(i).Color.Tint - 100)
s.Fill.Fountain.Colors.Item(i).Color.CopyAssign newClr

 

[iKoolk]

что-то вы там намудрили. Разбейте на две строки:

dim newClr As New Color

newClr.SpotAssign "85b8548b-1506-4ffe-9ff6-2e80f8abbb53", 12, Abs(s.Fill.Fountain.Colors.Item(i).Color.Tint - 100)
s.Fill.Fountain.Colors.Item(i).Color.CopyAssign newClr

Большое спасибо. абсолютно рабочий вариант. я примерно к нему пришел, но у меня он не работал, так как я определял цвет dim cols As New FountainColor

 

[eugeny]

Большое спасибо. абсолютно рабочий вариант. я примерно к нему пришел, но у меня он не работал, так как я определял цвет dim cols As New FountainColor

тут главное запомнить, что FountainColor помимо самого Color содержит информацию о позиции данного оттенка в градиенте, прозрачности и т.п. Color -- это у него один из параметров, который можно назначить и он отвечает за цвет.

 

[iKoolk]

тут главное запомнить, что FountainColor помимо самого Color содержит информацию о позиции данного оттенка в градиенте, прозрачности и т.п. Color -- это у него один из параметров, который можно назначить и он отвечает за цвет.

Да, так понятней почему он ругался на то, что коллекция не определена