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

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

使用Format Painter：

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

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

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

Answer 1

我找到了一个使用的方法：

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

我还没有能够使用Format Painter来解决这个问题......

用于在Excel中格式化y轴的宏

1 个答案: