VBA：使用VBA从Excel图表编辑图例名称

我制作了一个图表，试图绘制一些特定的数据。 为此我做了这个代码：

Sub plotsim() Dim sh As Worksheet Dim chrt As Chart worksh = Application.Sheets.Count Set sh = ActiveWorkbook.Worksheets("Simulation") Set chrt = sh.Shapes.AddChart.Chart With chrt .ChartType = xlLine .SeriesCollection.NewSeries .SeriesCollection(1).Name = "=""Portfolio forecast""" .SeriesCollection(1).XValues = Sheets("Simulation").Range("A2:A" & fsize + 1) .SeriesCollection(1).Values = Sheets("Simulation").Range(Sheets("Simulation").Cells(2, worksh + 1), Sheets("Simulation").Cells(fsize + 1, worksh + 1)) End With End Sub 

但是一旦我看了一下这个图表，我所看到的就是一个有两条不同线条的传说。

如何删除（或编辑） Series2标题？

Answer 1

如果你真的想编辑图例中的Series2 ，你可以用改变Series1名称的方式来改变它：

 .SeriesCollection(2).Name = "Unwanted series" 

---

注 ：我原来的回答如下：

以下代码行是添加您不需要的Series2 ：

 .SeriesCollection.NewSeries 

只需删除它。

但我现在看到，这不完全正确。 有时会创build一个额外的，有时不会，这取决于表单上过去发生的事情（我想我错过了一些明显的东西）。 我已经能够重现这两种行为。 如果你以某种方式结束了更多的系列，你可以通过调用去除多余的系列：

 .SeriesCollection(2).Delete 

只要你使用正确的序列号。 你可以包括这样的testing，看看是否有额外的一个：

 If .SeriesCollection.Count > 1 then .SeriesCollection(2).Delete