手动 & VBA自动设置坐标轴

悠悠的炊烟

excel图表会根据数据源数据的大小自动调整值坐标的最大值和最小值，实际应用中我们常常根据实际情况手动设置图表值坐标的最大值和最小值。但当数据源的数据随时变动时手动的方法就不行了，需要采取VBA来设置坐标轴的最大或最小值，以随时保持主、次坐标最小和最大值一致。

经常在论坛看见大家求助坐标轴最大最小值设置问题，特意举个例子分别采用手动和VBA自动控制的方法。

举例：某公司的工资分为5个等级，每个等级是一个区间，每个区间从最小值到最大值组成，有5个人分别为这5个等级的工资，做一个图表表示该公司的工资区间，一条折线表示其平均水平，用点表示每一个人的工资水平。

1. Sub 设置坐标轴()
   
2.     Dim min, max
   
3.     With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, xlPrimary)
   
4.         min = .MinimumScale
   
5.         max = .MaximumScale
   
6.     End With
   
7.     With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, xlSecondary)
   
8.         .MinimumScale = min
   
9.         .MaximumScale = max
   
10.     End With
    
11. End Sub
    

复制代码

祝洪忠-

谢谢炊烟老师分享  

dengxingchang

非常实用，拷贝备用了。谢谢分享

HUA79100101

VBA自动设置坐标轴

493861364

哪位老师会使用VBA设置图表的如下属性，望赐教，拜谢了！！
1、折线图的端点类型、联接类型https://club.excelhome.net/thread-1579623-1-1.html
2、柱形图用图片填充后，有个属性可单选：伸展、层叠、层叠并缩放
https://club.excelhome.net/thread-1591828-1-1.html
3、误差线箭头设置
https://club.excelhome.net/thread-1599148-1-1.html

duxing87

非常感谢，找了好久的功能，以下解决了大麻烦

yeyq9449

非常感谢，找了好久的功能~·赞