vba图表系列动态轴多系列

Question

我有一张图表可以从多张纸上的固定范围中提取数据。我希望这些图表上的轴能够自动适应范围，并集中在有意义的范围内，而不是从零开始。

如果可能的话，能够从整数中得到这个也很棒。

我已经编写了一些代码，但我真的无法轻松获取每个系列的最大值，只有最大值。

非常感谢任何帮助。

谢谢， 托马斯

Answer 1

我认为你正在寻找这样的东西：

使用以下VBA调整y轴 （故意让min / max函数引用不同的范围）

Sub Macro1()
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.Axes(xlValue).MinimumScale = Int(WorksheetFunction.Min(ActiveSheet.Range("$B$2:$B$6,$C$2:$C$6,$D$2:$D$6,$E$2:$E$6")))
ActiveChart.Axes(xlValue).MaximumScale = Int(WorksheetFunction.Max(ActiveSheet.Range("$B$2:$B$6,$C$2:$C$6,$D$2:$D$6,$E$2:$E$6"))) + 1
ActiveChart.Axes(xlValue).MinorUnit = 1
End Sub

希望这有帮助