Question

我正在C＃程序中运行Excel宏。我有一个图表，我想更改其属性。

这是我尝试过的代码：

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 statemnt给我一个运行时错误。因此，我想知道是否有与上面的代码等效的代码。我正在使用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

VBA无需使用With-EndWith语句即可更改图表轴的字体属性

1 个答案: