Re: Новый цвет

Написал wOxxOm в 20/02/2010 22:04:10

возможны варианты... вот один из них:

Dim c As New Color, pal As Palette, index&
Set pal = Palettes.OpenFixed(cdrPANTONECoated)
index = pal.FindColor("PANTONE 176 C")
If index > 0 Then
    Set c = CreateFixedColor(cdrPANTONECoated, index)
    ActiveShape.Fill.ApplyUniformFill c
Else
    'color not found
End If

ОБРАТИТЕ ВНИМАНИЕ НА ПРОБЕЛ МЕЖДУ НОМЕРОМ И БУКВОЙ "С" в названии цвета.