замена палитр
Написал LevySt в 01/02/2007 6:23:24
столкнулся с тем, что в картинках нужно привести все исп. краски к одной палитре. Но не знаю как это сделать во всех элементах
на сегодня имеем
'========================
Sub topantoneC()
Dim s As Shape
For Each s In ActivePage.Shapes
If s.Fill.Type = cdrUniformFill Then
If s.Fill.UniformColor.Type = cdrColorSpot Or s.Fill.UniformColor.Type = cdrColorPantone Then
s.Fill.UniformColor.ConvertToFixed cdrPANTONECoated
End If
If s.Outline.Type = cdrOutline Then
If s.Outline.Color.Type = cdrColorSpot Or s.Outline.Color.Type = cdrColorPantone Then
s.Outline.Color.ConvertToFixed cdrPANTONECoated
End If
End If
End If
Next s
End Sub
'==============================
буд благодарен за помошь