我正在寻找一些VBA代码，它可以自动化图表中x轴的固定最小值，具体取决于最早检测到的日期并分配多个预定义值中的一个。
我正在处理大量数据，其中可用数据的开始日期经常变化。
是否可以检测x轴中的最早年份值并应用预定的开始日期？
例如，如果数据从2002年5月4日开始提供，则代码将读取x轴范围内的最小值为04/05/2002，检测'2002'并将最小x轴值设置为'37258'与Excel的日期编号系统中的2002年1月1日一致。
如果从2008年中期开始提供数据，则会再次将x轴的最小值设置为“39449”以适合01/01/2008。
答案 0 :(得分：3)
ActiveChart.Axes(xlValue).MinimumScale = dateserial(year(ActiveChart.Axes(xlValue).MinimumScale),1,1)
查看图表，从中获取年份，然后将开头设置为该年度的1/1。