Excel VBA: есть ли способ форматировать оси диаграммы только через VBA?

Question

Мне нужно составить столбчатые диаграммы в Excel, используя только VBA (без ввода данных пользователем). Я хотел отформатировать метки оси X так, чтобы выравнивание для каждой метки стало -270 градусов. (Это можно сделать вручную, изменив свойство «Пользовательский угол» на вкладке «Выравнивание» диалогового окна «Ось форматирования».) Я попытался записать макрос для этого, но в Excel, похоже, не записывается шаг выравнивания. Кто-нибудь знает, как это сделать только с VBA?

Answer 1

Если вы используете Excel 2007, попробуйте использовать более раннюю версию, потому что макрос рекордер 2007 немного поврежден.

Вот что я получил:

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.Orientation = xlUpward

Answer 2

ActiveChart.Axes(xlCategory).TickLabels.Orientation = 67