我循环遍历seriescollections以获取最大值（预期范围{0; 1}）。
一些系列集合留空，因为人们可以打开/关闭，系列集合在图表中可见。但是，即使在图表数据源中将xvalue设置为“”，变量Test（1）也会返回数字1。
对于n = ActiveChart.SeriesCollection.Count到1步-1
Test = ActiveChart.SeriesCollection（n）.XValues
如果测试（1）＆gt; Sharemaximum然后
Sharemaximum =测试（1）
结束如果
接下来