|PowerPoint tips, hints and tutorials that will change your presentations for ever!|
New Colours With vba
Now if your colours followed the color scheme or slide master you wouldn't have to do this!
Here's the scenario the client decides that the colour you have used for all the shape fills is "a little too blue". You need to change 200 shapes to a new shade! The code can also change font color where the font doesn't match the master.
This code allows you to show them the new colour, adjust it till it's correct and then swap all instances of the old colour!
To use create a shape with the NEW colour. Select it and the then ctrl click to also select a shape with the old colour. Run the code. If you are changing font colour you should still use two filled shapes as your colour samples NOT selected text.
If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
lngNewcol = ActiveWindow.Selection.ShapeRange(1).Fill.ForeColor.RGB
For Each osld In ActivePresentation.Slides
Free Microsoft PowerPoint Advice, help and tutorials, Template Links