VBA изменяет свойства шрифта осей диаграммы без использования оператора With-EndWith

Question

Я использую макрос Excel в программе на C #. У меня есть график, и я хочу изменить его свойства.

Вот код, который я пробовал:

ActiveSheet.ChartObjects("myChart").Activate
ActiveChart.Axe(xlCategory).Select

With Selection.Format.TextFrame2.TextRange.Font  'Run-Time error: method of object failed 
     .BaselineOffset = 0
     .Bold = msoTrue
     .Size = 12
     .Italic = msoFalse
End With

Однако использование состояния With-EndWith вызывает ошибку во время выполнения. Поэтому я хотел бы знать, существует ли какой-либо код, эквивалентный коду выше. Я использую Excel 2013.

Answer 1

, если ваша цель просто изменить TickLabels шрифт, попробуйте что-то вроде этого

ActiveSheet.ChartObjects("myChart").Activate
Dim Axx As Axis
Set Axx = ActiveChart.Axes(xlCategory)
With Axx.TickLabels.Font
     .Bold = True
     .Size = 12
     .Name = "Bookman Old Style"
     .Italic = False
     .Color = RGB(255, 0, 0)
End With