如何用VBA动态清除VelChart图表内容并刷新新单元格区域数据

你遇到的问题根源在于ChartArea.ClearContents会破坏图表的核心结构（比如绘图区、系列容器），导致后续调用SeriesCollection时出错。正确的做法是只清除图表的数据系列，保留图表本身的格式和结构。

替换原有清除代码 #

把你原来的清除代码：

Worksheets("Velocity Tracker").ChartObjects("VelChart").Activate
ActiveChart.ChartArea.ClearContents

替换为以下代码，它会逐一删除图表的所有数据系列，同时完整保留图表对象：

Dim velChart As Chart
Set velChart = Worksheets("Velocity Tracker").ChartObjects("VelChart").Chart

' 循环删除所有数据系列
Do While velChart.SeriesCollection.Count > 0
    velChart.SeriesCollection(1).Delete
Loop

' 可选：清空标题（如果需要）
If velChart.HasTitle Then
    velChart.ChartTitle.Text = ""
End If

优化后续绘图函数 #

你可以进一步优化DrawVelChart函数，避免重复激活图表（激活操作容易引发焦点类错误），直接通过对象引用操作图表，同时整合清除逻辑：

Public Function DrawVelChart(strComponent As String)
    Dim velChart As Chart
    Dim ws As Worksheet
    Dim iLastRow As Long ' 确保iLastRow已在函数外或函数内完成定义赋值
    
    Set ws = Worksheets("Velocity Tracker")
    Set velChart = ws.ChartObjects("VelChart").Chart
    
    ' 先清除旧数据系列
    Do While velChart.SeriesCollection.Count > 0
        velChart.SeriesCollection(1).Delete
    Loop
    
    ' 设置新数据源
    velChart.SetSourceData Source:=ws.Range("C6:E" & iLastRow)
    velChart.SeriesCollection(1).XValues = ws.Range("G6:G" & iLastRow)
    
    ' 设置对应标题
    Select Case strComponent
        Case "Infrastructure (CI/CD/DevOps)"
            velChart.ChartTitle.Text = "Infra Velocity Trend"
        Case "Configuration"
            velChart.ChartTitle.Text = "Configuration Velocity Trend"
        Case "Analytics"
            velChart.ChartTitle.Text = "Analytics Velocity Trend"
    End Select
End Function

关键说明 #

• 直接操作Chart对象而非激活图表，代码更稳定，避免因窗口焦点变化引发的错误。
• 删除数据系列仅清除图表的数据内容，图表的格式（比如颜色、坐标轴设置）会被保留，后续重新设置数据源时可直接复用。
• SetSourceData会自动创建新的数据系列，无需手动添加。

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