vba图表系列动态轴多系列

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

如果可能的话，能够从整数中得到这一点也会很好

我已经写了一些代码，但我真的不能让它轻易地获得每个系列的最大值，只有一个系列的最大值

任何帮助都将不胜感激

谢谢，

---

托马斯

我想你在找这样的东西：

使用以下VBA调整y轴 有意保留引用不同范围的最小/最大函数

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

希望这有帮助