Hello,

I print a lot of presentations, and in order to save ink I need to change the text color from whatever to black, and the shapes (that contain text) fill color from whatever to white.
I keep the shapes that doesn't contain text with there original color.
Sometimes I can do this by changing the color scheme or on the Slide Master, but in a lot of presentations the colors has been modified manuely, so I need to go through all the slides one by one and it takes a lot of time, especially when the presentation has 100+ slides.

I need a VBA code that can automate this task for me.

Thank you in advance.