如何创建唯一的countChart图表，避免宏重复生成并动态更新数据

需求：创建名为countChart的图表，引用count_issue工作表的数据。当前运行宏时每次都会生成新图表，需要实现：仅当图表不存在时创建它，后续运行宏时只更新图表的数据，让图表随源数据变化同步更新。

原宏代码：

Option Explicit

Sub chartAdd_v2()

Dim chartSheet As ChartObject

Set chartSheet= Charts.Add

chartSheet.SetSourceData Worksheets("count_issue").Range("A2:c17")

End Sub

修改后的宏代码 #

Option Explicit

Sub UpdateOrCreateCountChart()
    Dim targetChart As ChartObject
    Dim ws As Worksheet
    Dim sourceRange As Range
    
    ' 设置源数据所在的工作表和数据范围
    Set ws = ThisWorkbook.Worksheets("count_issue")
    Set sourceRange = ws.Range("A2:C17")
    
    ' 尝试获取已存在的countChart图表
    On Error Resume Next
    Set targetChart = ws.ChartObjects("countChart")
    On Error GoTo 0
    
    ' 如果图表不存在，创建新图表
    If targetChart Is Nothing Then
        Set targetChart = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=500, Height:=300)
        targetChart.Name = "countChart"
        ' 设置图表类型，可根据需求调整（示例为簇状柱形图）
        targetChart.Chart.ChartType = xlColumnClustered
    End If
    
    ' 更新图表的源数据，确保和工作表数据同步
    targetChart.Chart.SetSourceData Source:=sourceRange
End Sub

关键逻辑说明 #

• 检查图表存在性：通过On Error Resume Next忽略获取图表失败的错误，若targetChart为Nothing则判定图表不存在，触发创建流程。
• 创建图表配置：指定图表的位置、尺寸，命名为countChart，并设置默认图表类型（可替换为xlLine、xlPie等你需要的类型）。
• 数据更新：无论图表是新创建还是已存在，最后都会执行SetSourceData更新数据，保证图表始终反映最新的源数据。

内容的提问来源于stack exchange，提问作者Aniruddh H S