VBA, apply colorscheme color

  • Thread starter Thread starter Edward
  • Start date Start date
E

Edward

Hi everybody
Useing UI if we apply a custom scheme color ( e.g. accent 1) to a text ,
when we change the theme color scheme , that text color changes too, I VBA
Ive used the following code
ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Levels(1).Font.Color
= _
ActivePresentation.Designs(1).SlideMaster.Theme.ThemeColorScheme(msoThemeAccent1)

which applies the correct color , but when I change the color scheme it
dosn't change the text color ?
Any suggestions?
 
Edward,
Use:
ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Levels(1).Font.Color.ObjectThemeColor
= msoThemeAccent1

The way you do it, assigns the color as a RGB value which will not get
updated.

Regards,
Shyam Pillai

Image Importer Wizard: http://skp.mvps.org/iiw.htm
 
Awesome ! thank you so much
--
Best regards,
Edward


Shyam Pillai said:
Edward,
Use:
ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Levels(1).Font.Color.ObjectThemeColor
= msoThemeAccent1

The way you do it, assigns the color as a RGB value which will not get
updated.

Regards,
Shyam Pillai

Image Importer Wizard: http://skp.mvps.org/iiw.htm
Click to expand...
 
Back
Top