Макрос для форматирования оси Y в Excel

Question

Я написал некоторый код для создания второй оси Y на графике. Я записал макрос, когда отформатировал вторую ось Y, и код выглядит великолепно. Тем не менее, это не работает, когда я пытаюсь запустить его из кода VBA. Я пробовал Format Painter (первая ось Y), который был бы оптимальным, если бы он работал, а также формируя второй y- ось "от руки"

Это то, что у меня есть (и это не работает..) Формирование второй оси Y в Calibri ("вручную"):ActiveChart.Axes(xlValue, xlSecondary).Select Selection.Format.TextFrame2.TextRange.Font.Name = "+mj-lt" 'This line doesn't work... Selection.Format.TextFrame2.TextRange.Font.Size = 14

Код ошибки: сбой метода TextFrame2 объекта 'ChartFormat'

Использование Format Painter:

ActiveChart.Axes(xlValue).Select
Selection.Format.PickUp    'This line doesn't work...
ActiveChart.Axes(xlValue, xlSecondary).Select

Код ошибки: объект не поддерживает это свойство или метод.

Кто-нибудь знает, почему ни один из методов не работает или есть обходной путь?

Answer 1

Я нашел решение, используя:

With ActiveChart.Axes(xlValue, xlSecondary).TickLabels.Font
   .Name = "Calibri"
   .Size = 16
End with

Я не смог решить проблему с Format Painter, хотя...