Excel/VBA-图表上下限动态变化

微信公众号原文

系统：Windows 7
软件：Excel 2010

使用场景介绍：

不知大家有没有这样的困惑？

困惑：Excel自动生成的图表，Y轴自动设置的上下限不合理，整个图看起来有点怪

那么这次，我们就用VBA来解决这个问题

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

效果图

1.gif

代码部分

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 + 2
End Sub

注意事项

1. 在代码中图表的名称为上下限图表，这是事先设置的
2. 图表名称设置方法：

• 选中图表，出现图表工具菜单-选中布局菜单-属性，更改图表名称
• 修改完以后，选中图表，在Excel的左上角会显示选中对象的名称，见下图

图表名称设置

2.JPG

图表名称查看

1.JPG

---

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

公众号底部二维码.jpg