vba powerpoint chart datalabel

Hi,

I am trying to change the chart datalabel font color to the color in fill color palette, through vba code.
the below code is not working. please help me.

Activewindow.Selection.ShapeRange(1).Chart.SeriesCollection(1).datalabels.f ont.color.objectthemecolor = msoThemeColorAccent5

Thanks and Regards,
Balu.

Assuming you have a chart selected and only want to set the color for series 1

Code:

---

ActiveWindow.Selection.ShapeRange(1).Chart.SeriesCollection(1).DataLabels.Format.TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent5

---

Thank you John. it worked. life saver!!!.

Hello John,
Just for learning, what is the difference between the objectthemecolor vs schemecolor?
Am really confused with these two.

Thanks for the clarification.

Regards,
Balu.

schemecolor (AFAIK) is for use with versions before 2007. You should use ObjectThemeColor in modern versions.

Hi John,

Thank you very much for the clarification.

Regards,
Balu.