Powerpoint Theme Colors conversion

JohnWilson · #8 01-12-2015, 06:41 AM

The colors in that presentation are already Theme Colors (the standard Office Theme Colors)

To change eg the first Blue (accent1) to Red

Go to Design > Colors > Create New Theme Colors

Change Accent1 to Red and OK.

You don't need this but for educational purposes the code might be:

Code:

Sub switch_to_Theme()
Dim oshp As Shape
Dim osld As Slide
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Fill.ForeColor.RGB = RGB(255, 0, 0) Then
oshp.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent1
End If
Next oshp
Next osld
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word/Office Theme Colors	pmokover	Word	1	09-07-2014 02:48 PM
Powerpoint 2010 - Custom theme applies as a master	dewestone	PowerPoint	1	07-15-2014 12:03 AM
Custom colors for smart art - via template? theme? add-on?	fl8rmaus	PowerPoint	0	09-26-2012 08:10 AM
Unable to change font colors from theme colors	choy	Word	3	08-01-2012 09:12 PM
Powerpoint template colors	Quarath	PowerPoint	0	12-09-2011 04:38 AM