VBA图表异常显示问题：X轴日期值无法正常展示

问题场景 #

运行VBA脚本时，添加数据系列的功能正常，但设置X轴最小/最大刻度的代码失效：X轴仅显示格式无日期值，右键进入「选择数据」界面点击任意数据系列后，日期才会显示。

原代码中失效的行：

ActiveChart.Axes(xlCategory).MinimumScale = Range("E14").value
ActiveChart.Axes(xlCategory).MaximumScale = Range("E15").value

原因分析 #

1. With语句用法错误：原代码中With ActiveSheet.ChartObjects("Chart 2").Select是错误写法，With应直接绑定对象而非执行Select操作，依赖Select/ActiveChart的操作会因激活状态不稳定导致代码失效。
2. 未指定Range所属工作表：Range("E14")未明确所属工作表，默认取当前激活工作表的值，若激活的不是目标工作表B3 Graph，会导致刻度值取错。
3. X轴类型未明确设置：添加数据系列后，X轴可能未被自动识别为日期轴，直接设置刻度值无法生效。

解决方法 #

重写代码，避免使用Select/Activate，明确引用所有对象，指定工作表，先设置X轴为日期轴再调整刻度：

修正后的代码 #

Option Explicit

Sub LWAs_Erzeugen()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim wsGraph As Worksheet: Set wsGraph = wb.Sheets("B3 Graph")
    Dim chartObj As ChartObject: Set chartObj = wsGraph.ChartObjects("Chart 2")
    Dim chart As Chart: Set chart = chartObj.Chart
    Dim wsPV As Worksheet: Set wsPV = wb.Sheets("B2 PV Production")
    Dim wsEV As Worksheet: Set wsEV = wb.Sheets("C0 EV (Historie)")
    
    ' 清除现有所有数据系列
    Do While chart.SeriesCollection.Count > 0
        chart.SeriesCollection(1).Delete
    Loop
    
    ' 添加第一个数据系列
    With chart.SeriesCollection.NewSeries
        .Name = "LWA_aus_B1"
        .XValues = wsPV.Range("B43:BX43")
        .Values = wsPV.Range("B46:BX46")
    End With
    
    ' 添加第二个数据系列
    With chart.SeriesCollection.NewSeries
        .Name = "LWA_aus_C0"
        .XValues = wsPV.Range("B43:BX43")
        .Values = wsEV.Range("D3:BZ3")
    End With
    
    ' 设置X轴为日期轴并调整刻度
    With chart.Axes(xlCategory)
        .CategoryType = xlTimeScale ' 明确设置为日期/时间轴类型
        .MinimumScale = wsGraph.Range("E14").Value
        .MaximumScale = wsGraph.Range("E15").Value
        .TickLabels.NumberFormat = "yyyy-mm-dd" ' 可选：自定义日期显示格式
    End With
End Sub

关键修改点 #

• 直接引用ChartObject和Chart对象，完全避免Select/Activate，消除激活状态带来的不确定性。
• 明确指定所有Range所属的工作表，确保取到正确的刻度值。
• 先将X轴类型设置为xlTimeScale，再设置最小/最大刻度值，确保刻度设置生效。
• 用循环清除所有旧系列，避免因系列数量变化导致的索引错误。

内容的提问来源于stack exchange，提问作者2mas