Following is code previously shared with me to quickly find and change outline color
Set sr = p.Shapes.FindShapes(Query:="@outline.color=rgb(0,0,255)") 'find blue outlines sr.SetOutlineProperties Color:=CreateRGBColor(0, 255, 0) 'change to green outlines
How would the code be modified to search and change Fills?
Are you looking for uniform fills? If so, you could try this:
Query:="@fill.type = 'uniform' and @fill.color = rgb(0,0,255)"