更改 VBA 图表系列中的字体颜色

Question

我正在使用以下代码为饼图中的饼图着色，以便每个饼图的值范围都具有相同的颜色。此代码运行良好。

for I = 1 to UBound (vntValues)
   myseries.Points(I).Interior.color = Range(s).cells(I).interior.color
next I

我想根据饼图的取值范围改变每个饼图的字体颜色。我试过下面的代码，但它不起作用。

myseries.Points(I).Font.color = Range(s).cells(I).Font.color

其给出的错误为

object doesn't support this property or method.

你能帮我看看正确的方法吗？

谢谢。

Answer 1

半测试：

mySeries.Points(I).DataLabel.Characters.Font.Color = Range(s).cells(I).Font.color

Changing the font color in VBA chart Series