我想创建一个代码从excel上的现有xy散点图中删除数据系列

Question

我的问题是我不知道如何在vba中编码。

Dim srs As Series
ActiveSheet.ChartObjects("Chart 1").Activate
With ActiveChart
    For Each srs In .SeriesCollection
        If .Name = c Then
        .SeriesCollection(srs).Delete
        End If
    Next

它不运行。 对不起，我是这个东西的新手

Answer 1

类似这样的东西：

Dim s As Series, ws As Worksheet
Set ws = Worksheets("Sheet1")
with ActiveChart.SeriesCollection.NewSeries
    .XValues = ws.Range("A1:A5")
    .Values = ws.Range("B1:B5")
End with