Vba excel图表的条件最小轴值

我正在寻找一些VBA代码，它可以根据最早检测到的日期自动确定图表中x轴的固定最小值，并指定一个预定义值

我处理的是大量数据，其中可用数据的开始日期经常不同

是否可以检测x轴上的最早年份值并应用预定的开始日期

例如，如果数据来自2002年5月4日，代码将读取x轴范围内的最小值，即2002年4月5日，检测“2002”，并将最小x轴值设置为“37258”，以与Excel日期编号系统中的2002年1月1日相对应

如果2008年年中有数据可用，它会再次将x轴上的最小值设置为“39449”，以与01/01/2008相匹配

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

---

查看图表，从中提取年份，然后将开始设置为该年的1/1。

我可以看到您在这里尝试了什么-我觉得这应该可行。但事实并非如此，因为最小值与宏运行前保持不变——同样，它也不会产生任何错误消息。你完全确定这对你有用吗？更新-你的代码是正确的，只是我不得不将“xlValue”的出现更改为“xlCategory”。非常感谢您的帮助。我制作了一个简单的图表，上面有日期，并记录了我对图表所做更改的宏。这样，我就得到了所需的财产。此代码成功更改了刻度。对沿侧面的轴使用xlValue，对沿底部的轴使用xlCategory，对三维轴使用xlSeriesAxis