VBA-图表上下限动态变化

系统：Windows 7
软件：Excel 2010

使用场景介绍：

不知大家有没有这样的困惑？困惑：Excel自动生成的图表，Y轴自动设置的上下限不合理，整个图看起来有点怪那么这次，我们就用VBA来解决这个问题

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

效果图

代码部分

1. 关键字 MinimumScale设置Y轴的最小值
2. 关键字 MaximumScale设置Y轴的最小值
3. 通过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 + 2End Sub

注意事项

1. 在代码中图表的名称为上下限图表，这是事先设置的
2. 图表名称设置方法：
   
   • 选中图表，出现图表工具菜单-选中布局菜单-属性，更改图表名称
   • 修改完以后，选中图表，在Excel的左上角会显示选中对象的名称，见下图

图表名称设置

图表名称查看

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号