Myron is correct, find the red color shapes with CQL and then use the ApplyUniformFill. Here is another quick example that if a shape has a red fill or outline it would then fill it black. This example uses the color name instead of a value to find the color. Sub RedToBlack() ActivePage.Shapes.FindShapes(Query:= "@colors.find('red')" ).ApplyUniformFill CreateRGBColor(0, 0, 0) End Sub Best of luck, -Shelby
↧