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