如何更改图表轴的字体？
How to change the font of chart axes?
如何遍历图表的轴？图表可能具有的轴数是可变的，可以是 1 或更多...因此循环。我有以下代码：
Dim a As Axis
'
For Each a In ActiveChart.Axes
a.Format.TextFrame2.TextRange.Font.Name = "Calibri Light"
Next
以上代码报错如下：
根据 this answer 在 answers.microsoft.com 上的说法，这似乎是一个从未修复过的错误。作为解决方法，您可以使用以下方法：
Dim a As Axis
For Each a In ActiveChart.Axes
a.TickLabels.Font.Name = "Calibri Light"
Next
如何遍历图表的轴？图表可能具有的轴数是可变的，可以是 1 或更多...因此循环。我有以下代码：
Dim a As Axis
'
For Each a In ActiveChart.Axes
a.Format.TextFrame2.TextRange.Font.Name = "Calibri Light"
Next
以上代码报错如下：
根据 this answer 在 answers.microsoft.com 上的说法，这似乎是一个从未修复过的错误。作为解决方法，您可以使用以下方法：
Dim a As Axis
For Each a In ActiveChart.Axes
a.TickLabels.Font.Name = "Calibri Light"
Next