Excel 2019中VBA删除图表系列崩溃问题求助

原代码在Excel 2021正常运行，但Excel 2019中崩溃，核心原因是正向循环删除系列时，Excel 2019对图表系列集合的索引处理存在兼容性Bug：每次删除第一个系列后，集合内部结构会重新计算，反复操作容易触发内存异常导致程序崩溃。

修复方案：倒序删除系列 #

从最后一个系列开始删除，彻底避免索引变动带来的异常，同时保证所有系列都被清除。修改后的完整代码如下：

Dim nameOfIBs() As String, AUM() As Long
Dim ch As Chart
Dim seriesCount As Integer

Set ch = Worksheets("Chart").ChartObjects("AUMChart").Chart

' 倒序删除所有系列，规避Excel 2019兼容性问题
seriesCount = ch.SeriesCollection.Count
For seriesCount = seriesCount To 1 Step -1
    ch.SeriesCollection(seriesCount).Delete
Next seriesCount

' 添加新系列并设置格式
With ch.SeriesCollection.NewSeries
    .Values = AUM
    .XValues = nameOfIBs
    With .DataLabels
        .NumberFormat = "[$-fa-IR,300]0"
        With .Font
            .Size = 16
            .FontStyle = "Bold"
            .Name = "IPT.Nazanin"
            .ColorIndex = 1
        End With
    End With
End With

额外优化建议 #

• 操作图表前可暂时禁用屏幕更新，减少Excel渲染负担，进一步降低崩溃概率：

  Application.ScreenUpdating = False
  ' 图表操作代码
  Application.ScreenUpdating = True
  

• 确保nameOfIBs和AUM数组已正确赋值，空数组或维度不匹配也可能引发异常。

内容的提问来源于stack exchange，提问作者Reza Rezaei