Excel图表的条件最小轴值

我正在寻找一些VBA代码，它可以使图表中x轴的固定最小值自动化，具体取决于最早检测到的date和分配多个预定义值之一。

我正在处理大量的数据，其中可用数据的开始date经常变化。

是否有可能检测x轴的最早年份值并应用预定的开始date？

例如，如果数据从2002年5月4日开始有效，则代码将在2004年5月4日读取x轴范围内的最小值，检测“2002”并将最小x轴值设置为“37258”在Excel的date编号系统中与2002年1月1日一致。

如果数据从2008年中期开始可用，则会再次将x轴的最小值设置为“39449”以适应01/01/2008。

Answer 1

ActiveChart.Axes(xlValue).MinimumScale = dateserial(year(ActiveChart.Axes(xlValue).MinimumScale),1,1) 

这看着图表，从那一年开始，然后将开始设置为那一年的1/1。