系统：Windows 7 软件：Excel 2010
使用场景介绍：
不知大家有没有这样的困惑？
困惑：Excel自动生成的图表，Y轴自动设置的上下限不合理，整个图看起来有点怪
那么这次，我们就用VBA来解决这个问题
下面的效果图展示了，将图表Y轴的的最大/最小值进行了动态设置
Y轴最大值为：数据源最大值+2Y轴最小值为：数据源最小值-2通过上面的方法，数据源变化，那么Y轴的上下限也会自动变化
效果图
代码部分
关键字 MinimumScale设置Y轴的最小值关键字 MaximumScale设置Y轴的最小值通过Max与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
chart1
.Chart.Axes(xlValue)
.MaximumScale = maxValue +
2
End
Sub
注意事项
在代码中图表的名称为上下限图表，这是事先设置的图表名称设置方法：
选中图表，出现图表工具菜单-选中布局菜单-属性，更改图表名称修改完以后，选中图表，在Excel的左上角会显示选中对象的名称，见下图
图表名称设置
图表名称查看
更多精彩，请关注微信公众号 扫描二维码，关注本公众号
