Межсимвольный интервал для осей диаграммы в Excel VBA

Question

Я пытаюсь использовать макрос, чтобы изменить межсимвольный интервал для моих легенд и меток осей на диаграммах со значения по умолчанию от 0 до 0,2. Я использовал функцию записи макроса, и результат для легенды работает отлично. В частности:

ActiveChart.Legend.Select
With Selection.Format.TextFrame2.TextRange.Font
    .BaselineOffset = 0
    .Spacing = 0.2
End With

Но результат для осей выдает ошибку, когда я пытаюсь запустить его самостоятельно. Например:

ActiveChart.Axes(xlCategory).Select
With Selection.Format.TextFrame2.TextRange.Font
    .BaselineOffset = 0
    .Spacing = 0.2
End With

Как только я запускаю вторую строку, он говорит мне: «Ошибка времени выполнения xxxxx. Метод TextFrame2 объекта ChartFormat сбой»

Любые идеи о том, как Я могу правильно изменить расстояние между символами для меток осей?

Большое спасибо!

Answer 1

По какой-то причине ошибка возникает при попытке доступа к свойству TextFrame2 оси. В зависимости от ваших точных потребностей можно обойтись тем, чтобы установить интервал для всей области диаграммы сразу.

Что-то вроде:

with ActiveChart.ChartArea.Format.TextFrame2.TextRange.Font
     .Spacing=0.2
end with