замена палитр

Написал 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
'==============================
буд благодарен за помошь