![]() |
|
#1
|
|||
|
|||
![]()
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 |
#2
|
|||
|
|||
![]()
D'oh... sorry John. Wrong attachment (just came back from vacation, so not quite back in the swing of things...)
Will try your code but may need help... Anyway – I've attached another one, which doesn't have theme colors... |
![]() |
Tags |
theme color |
|
![]() |
||||
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 |
![]() |
choy | Word | 3 | 08-01-2012 09:12 PM |
Powerpoint template colors | Quarath | PowerPoint | 0 | 12-09-2011 04:38 AM |