Change the colour scheme of a presentation

amv26 · #1 02-18-2016, 08:23 AM

Hi, all,

I have a presentation with N slides following a corporative X style (corporative background, header, footer, font type, size and colour, etc), and I have to change that presentation to a corporative Y style which I already have (with a different set of characteristics).

I paste the presentation X in the template Y and some things change, but there's still a lot of shapes colour that doesn't change and remain in X style. Is there any possibility to change all the shapes filling colour at once without having to go one by one?

I hope I have been clear

Thanks a lot anyways.

JohnWilson · #2 02-18-2016, 12:17 PM

If the colors did not change chances are they didn't follow the master correctly in the first place.

Some simple code might help

Make one shape how you want it and SELECT it.

Alt f11 to open the code editor
Insert >> Module

Copy and past in this code

Code:

Sub fixMe()

Dim oshp As Shape
Dim osld As Slide
ActiveWindow.Selection.ShapeRange(1).PickUp
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoAutoShape Then oshp.Apply
Next oshp
Next osld
End Sub

Using a copy just in case it's not what you want f5 to run or View > Macros > Run

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to change heading colour on CV document	Neville41	Drawing and Graphics	2	01-15-2014 09:18 AM
importing vector files that are responsive to powerpoint color scheme change	mlatu	PowerPoint	1	11-24-2013 05:14 AM
VBA/Macro to change one colour in chart to another	lsmcal1984	Excel Programming	1	11-12-2013 07:41 AM
Change Colour Theme in Word with VBA	Davidoff78	Word VBA	1	06-28-2012 05:23 PM
CHange colour of footer if a cell changes to red	OTPM	Excel	0	05-26-2011 07:15 AM