how to find an object for their color in VB?
thanks.
Maybe...
Dim fill As ShapeRange
Set fill = ActiveSelection.Shapes.FindShapes(Query:="@fill.color= ' 100% Corel Black ' ") 'Find Color by Name
fill.ApplyUniformFill CreateRGBColor(205,0,0) 'Replace Named Color With This Value