Excel图表动画执行32768步后报1004错误，是否存在隐藏计数器？

问题根源 #

你遇到的是Excel对象模型的已知限制：图表的SeriesCollection内部存在一个隐藏的16位整数计数器，每次更新系列的XValues或Values时，该计数器会递增。当计数器数值超过16位整数最大值（32767）时，就会触发无额外说明的运行时错误1004，且后续无法再操作该Chart对象。

重置计数器的可行方法 #

没有公开API可以直接重置这个隐藏计数器，但可以通过删除原系列并重新创建相同配置的系列间接重置内部状态，具体步骤如下：

1. 保存原系列的X/Y数据、格式等属性
2. 删除旧系列
3. 创建新系列并恢复保存的数据和格式

重置系列的VBA代码示例

Sub ResetChartSeries()
    Dim chtObj As ChartObject
    Dim oldSeries As Series
    Dim newSeries As Series
    Dim xVals As Variant, yVals As Variant
    Dim lineColor As Long, markerStyle As XlMarkerStyle
    
    Set chtObj = ActiveSheet.ChartObjects(1)
    Set oldSeries = chtObj.Chart.SeriesCollection(1)
    
    ' 保存当前数据和格式
    xVals = oldSeries.XValues
    yVals = oldSeries.Values
    lineColor = oldSeries.Format.Line.ForeColor.RGB
    markerStyle = oldSeries.MarkerStyle
    
    ' 删除旧系列
    oldSeries.Delete
    
    ' 创建新系列并恢复配置
    Set newSeries = chtObj.Chart.SeriesCollection.NewSeries
    With newSeries
        .XValues = xVals
        .Values = yVals
        .Format.Line.ForeColor.RGB = lineColor
        .MarkerStyle = markerStyle
        ' 按需添加其他格式属性（如标记颜色、大小等）
    End With
End Sub

循环中避免错误的实现方式 #

可以在循环中定期调用重置函数，或者在捕获到1004错误时触发重置：

Dim stepCount As Long
Do While True
    On Error Resume Next
    ' 尝试更新数据
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        .XValues = x
        .Values = y
    End With
    
    ' 捕获1004错误并重置
    If Err.Number = 1004 Then
        On Error GoTo 0
        ResetChartSeries
        ' 重置后重新赋值
        With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
            .XValues = x
            .Values = y
        End With
    End If
    On Error GoTo 0
    
    DoEvents
    ' 更新x、y的逻辑
    stepCount = stepCount + 1
    
    ' 定期重置（提前避免错误）
    If stepCount Mod 30000 = 0 Then
        ResetChartSeries
    End If
Loop

额外优化建议 #

• 如果动画仅涉及单个点的移动，可以直接修改系列的Points集合中的单个点坐标，而非每次赋值整个XValues/Values，大幅减少计数器递增频率：

  With .ChartObjects(1).Chart.SeriesCollection(1).Points(1)
      .Left = x ' 注意：此处坐标为图表坐标系，可能需要转换
      .Top = y
  End With
  

• 若必须批量更新数据，建议按固定步数（如30000步）主动重置系列，避免触发错误中断程序。

内容的提问来源于stack exchange，提问作者Jiří Macur