I'm not sure that there's any way to get rid of the color information.

Intention is to get completely rid of the coloring information, because I have a different macro, searching for shapes with the same color as a selected shape. It works well with one exception: It selects shapes with invisible fills of the same color, too
Could you add a test to see if it's visible?