如何在vba中更改系列名称？

Question

我正在尝试更改每个剧情的系列名称，但我不知道如何。我试图在Google上找到它的建议是Series.Name = ""，但它无效。

Sub Profit_Graph()

     Dim ws As Worksheet
     Dim rng As Range
     Dim objChrt As ChartObject
     Dim chrt As Chart

     Set ws = ThisWorkbook.Sheets("Graph")

     With ws
         Set rng = .Range("A3:A14,B3:D14")
         .Shapes.AddChart
         Set objChrt = .ChartObjects(.ChartObjects.Count)
         Set chrt = objChrt.Chart

         With chrt
            .ChartType = xlColumnClustered
            .SetSourceData Source:=rng
         End With

    End With
End Sub