VBA, apply colorscheme color

[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?

 

[Shyam Pillai]

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

 

[Edward]

Awesome ! thank you so much
--
Best regards,
Edward

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