Недавний контент LevySt
-
L
замена цветов
Ответ: замена цветов посоветуйте, как все палитры в файле привести к pantoneC что-то типа ============================= 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...