VBA图表标题不更新求助：修改B2后标题未同步更新

当单元格B6选择"Yes"时，代码会生成标题为PD Graphs: +B2内容的折线图。首次设置B2后选B6，标题显示正确；但修改B2后，图表数据自动更新，标题却保留旧内容。

问题根源 #

当前代码仅在B6单元格内容变化时才会调用GraphOn重新创建图表并设置标题，而B2单元格变化时没有触发任何更新标题的逻辑，所以标题不会自动同步。

解决方案 #

提供三种可行方案，按复杂度从低到高排序：

方案1：让图表标题直接链接到B2单元格（无需修改VBA）

这是最简单的方法，不用写VBA维护标题：

• 选中图表标题
• 在Excel公式栏输入：="PD Graphs: "&Sheet1!B2
• 按回车确认

之后B2内容变化时，标题会自动同步更新，完全不需要VBA干预。

方案2：扩展Worksheet_Change事件，处理B2变化时的标题更新

修改Worksheet_Change事件，当B2变化且图表存在时，直接更新标题：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = True
    
    ' 处理B6的变化（原逻辑保留）
    If Target.Address(0, 0) = "B6" Then
        Application.EnableEvents = False
        If Target.Value = "Yes" Then
            Call GraphOn
        Else
            Call GraphOff
        End If
        Application.EnableEvents = True
    End If
    
    ' 新增：处理B2的变化，更新现有图表标题
    If Target.Address(0, 0) = "B2" Then
        ' 检查是否存在图表
        If Sheet1.ChartObjects.Count > 0 Then
            Sheet1.ChartObjects(1).Chart.ChartTitle.Caption = "PD Graphs: " & Sheet1.Cells(2, 2).Value
        End If
    End If
End Sub

同时优化GraphOn，避免每次都删除重建图表（如果只是标题和数据更新，没必要删了重画）：

Option Explicit

Sub GraphOn()
    Dim chtObj As ChartObject
    
    Sheet1.Activate
    
    ' 检查是否已有图表，没有才新建
    If Sheet1.ChartObjects.Count = 0 Then
        Sheet1.Shapes.AddChart2(227, xlLine).Select
        Set chtObj = Sheet1.ChartObjects(1)
        ' 设置数据区域
        chtObj.Chart.SetSourceData Source:=Sheet1.Range("H2:L49")
        ' 初始化标题设置
        chtObj.Chart.HasTitle = True
    Else
        Set chtObj = Sheet1.ChartObjects(1)
        ' 仅更新数据区域（如果需要）
        chtObj.Chart.SetSourceData Source:=Sheet1.Range("H2:L49")
    End If
    
    ' 每次都更新标题，确保和B2同步
    chtObj.Chart.ChartTitle.Caption = "PD Graphs: " & Sheet1.Cells(2, 2).Value
End Sub

GraphOff代码保持不变：

Option Explicit
Sub GraphOff()
    Sheet1.Activate
    If ActiveSheet.ChartObjects.Count > 0 Then
        Sheet1.ChartObjects.Delete
    End If
End Sub

方案3：用动态标题链接（VBA绑定单元格到标题）

通过VBA让图表标题直接关联B2单元格，和方案1效果类似，但用代码实现：

在GraphOn中替换标题设置的代码：

With Sheet1.ChartObjects(1).Chart
    .HasTitle = True
    ' 让标题链接到B2单元格
    .ChartTitle.Formula = "=""PD Graphs: ""&Sheet1!B2"
End With

这样设置后，标题会自动跟随B2变化，不需要额外处理Worksheet_Change事件。

总结 #

推荐优先使用方案1，无需修改代码就能解决问题；如果必须用VBA处理，方案2或3都可以，其中方案2更灵活，能同时处理数据和标题的更新。

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