1

我编写了一些代码来在图表中创建第二个 y 轴。我在格式化第二个 y 轴时录制了一个宏，代码看起来很棒。但是，当我尝试从 VBA 代码运行它时它不起作用。我已经尝试了格式刷（第一个 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

错误代码：对象“ChartFormat”的方法 TextFrame2 失败

使用格式刷：

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

错误代码：对象不支持此属性或方法。

有谁知道为什么这些方法都不起作用或者是否有解决方法？

4

1 回答 1

1

我通过以下方式找到了解决方法：

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

虽然我无法用格式刷解决这个问题......

于 2016-11-04T07:52:30.077 回答