VBA图表标题设置异常：多次运行代码仅首个图表标题生效

问题根源 #

你的代码每次都固定操作Worksheets(1).ChartObjects(1)——也就是工作表里的第一个图表对象，后续生成的新图表会排在已有图表之后，自然不会被修改标题。

修正后的代码 #

直接引用新创建的图表对象，避免依赖固定索引：

折线图代码

Sub LineChart()
    Dim chartShape As Shape
    ' 创建折线图并获取对象引用
    Set chartShape = ActiveSheet.Shapes.AddChart2(201, xlLine)
    ' 设置数据源
    chartShape.Chart.SetSourceData Source:=Range("A2:M6")
    ' 设置图表标题
    chartShape.Chart.ChartTitle.Text = "Monthly Sales"
End Sub

柱形图代码

Sub ColumnChart()
    Dim chartShape As Shape
    ' 创建柱形图并获取对象引用
    Set chartShape = ActiveSheet.Shapes.AddChart2(201, xlColumnClustered)
    ' 设置数据源
    chartShape.Chart.SetSourceData Source:=Range("A2:M6")
    ' 设置图表标题
    chartShape.Chart.ChartTitle.Text = "Monthly Sales"
End Sub

优化说明 #

• 去掉了不必要的Range.Select操作，VBA中应尽量避免使用Select/Activate，让代码更高效稳定。
• 通过将新创建的Shape对象赋值给变量，直接对当前生成的图表进行操作，确保每次新图表都能被正确设置标题。

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