VBA参考图表名称

Question

为什么这不起作用：

ActiveSheet.ChartObjects("Sale").Axes(xlValue).MinimumScale = 1000

虽然这样做：

  With ActiveChart.Axes(xlValue, xlPrimary)
    .MinimumScale = 1000
  End With

首先我这样做了：

ActiveChart.Parent.Name="Sale"

我无法做到这一点：

ActiveChart.Name="Sale"

我想特别提到图表“Sale”，而不是ActiveChart。

Answer 1

ChartObject只是一个＆＃34;容器＆＃34;对于工作表上的图表：您需要访问其ActiveSheet.ChartObjects("Sale").Chart.Axes(xlValue).MinimumScale = 1000 属性才能访问图表本身：

{{1}}

Answer 2

您可以使用以下方法设置要引用的图表名称：

ActiveSheet.Shapes(1).name = "Sale"

请注意，1中Shapes(1)的值是您创建的第一个图表的图表编号。

如果要创建多个（1）图表，则需要相应地更新数字。

希望这对您有所帮助。

谢谢。

和平。