EXCEL VBA自动设置坐标轴上下限

下面的效果图展示了，将图表Y轴的的最大/最小值进行了动态设置
Y轴最大值为：数据源最大值+2
Y轴最小值为：数据源最小值-2
通过上面的方法，数据源变化，那么Y轴的上下限也会自动变化

 

代码部分

关键字 MinimumScale 设置Y轴的最小值
关键字 MaximumScale 设置Y轴的最小值
通过 Ma x与 Min 函数获取已知数据的最大最小值
Sub 图表上下限()
Set sht = ThisWorkbook.Worksheets("示例")
Set chart1 = sht.ChartObjects("上下限图表")
Set Rng = sht.Range("C2:G2")
maxValue = Application.Max(Rng)
minValue = Application.Min(Rng)
chart1.Chart.Axes(xlValue).MinimumScale = minValue - 2   ‘ y轴，纵轴’
chart1.Chart.Axes(xlValue).MaximumScale = maxValue + 2
End Sub

 

x轴，横轴

Cht.Chart.Axes(xlCategory).MinimumScale = Range("B4").Value
Cht.Chart.Axes(xlCategory).MaximumScale = Range("B15").Value

 

REF：

https://www.douban.com/group/topic/107592416/

https://blog.csdn.net/chang1976272446/article/details/83750562