如何更改图表轴的字体？

Question

如何遍历图表的轴？图表可能具有的轴数是可变的，可能是1个或更多...因此循环。我有以下代码：

Dim a As Axis
'
For Each a In ActiveChart.Axes
    a.Format.TextFrame2.TextRange.Font.Name = "Calibri Light"
Next

上面的代码给出以下错误：

Answer 1

根据Answers.microsoft.com上的this answer，这似乎是一个从未修复的错误。解决方法是，可以使用以下方法：

Dim a As Axis
For Each a In ActiveChart.Axes
    a.TickLabels.Font.Name = "Calibri Light"
Next

编辑：

检查文档后，似乎不是错误，而是导致该错误的TextFrame2.TextRange属性是只读的。