vba - 使用 VBA 从图表中删除系列

Question

我正在通过 vba 代码在 Excel 中创建图表。我正在使用连续的数据，并且图表弹出没有问题，但是有一个名为“Series 3”的额外系列，我没有要求并且需要删除它(通过删除它或首先省略)。它没有数据，但至少需要从图例中删除。这是我的代码:

Dim MyChtObj As ChartObject
Dim Sht1 As Worksheet
Dim ShtName As String

Set Sht1 = Worksheets("Parameter Forecasts")
ShtName = Sht1.Name
Set MyChtObj = Sht1.ChartObjects.Add(100, 100, 500, 500)

Set a = Sht1.Range("E37", Sht1.Range("E37").End(xlToRight))
Set b = Sht1.Range("E38", Sht1.Range("E38").End(xlToRight))
Set InputData = Union(a, b)

With MyChtObj.Chart
    .ChartType = xlLineMarkers
    .SetSourceData InputData
    .PlotBy = xlRows
    .SeriesCollection.NewSeries.XValues = Sht1.Range("F36", Sht1.Range("F36").End(xlToRight))
End With

我已经尝试过:

MyChtObj.SeriesCollection(3).Delete

但这不起作用。

提前致谢，麦克斯

Answer 1

SeriesCollection 是 ChartObject.Chart 对象的一部分，而不是 ChartObject。

因此，替换您的行:

MyChtObj.SeriesCollection(3).Delete

与:

MyChtObj.Chart.SeriesCollection(3).Delete