我正在通过 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
但这行不通。
提前感谢,马克斯
SeriesCollection
是ChartObject.Chart
对象的一部分,而不是ChartObject
。
因此,请替换以下行:
MyChtObj.SeriesCollection(3).Delete
跟:
MyChtObj.Chart.SeriesCollection(3).Delete
你的代码行
.SeriesCollection.NewSeries.XValues = Sht1.Range("F36", Sht1.Range("F36").End(xlToRight))
正在通过.NewSeries
添加第三个系列。将其更改为
.SeriesCollection(1).XValues = Sht1.Range("F36", Sht1.Range("F36").End(xlToRight))
现在没有什么可删除的了。
似乎并不总是有效
.SeriesCollection(1).XValues = Sht1.Range("F36", Sht1.Range("F36").End(xlToRight))
如果没有要删除的系列 3,这将不起作用(有时默认情况下不会随机显示此系列 3,然后您会收到此行的错误)
MyChtObj.Chart.SeriesCollection(3).Delete
这是一个快速的n肮脏的技巧。添加这个(在这里重复 3 次,但根据您的工作表重复更多,因为不同的工作表取决于填充的单元格的 nr,生成不同数量的随机序列)。每次删除时,它都会继续删除"列表"中排名第 3 位的系列,直到 nr 或系列为 2
If .SeriesCollection.Count > 2 Then
MyChtObj.Chart.SeriesCollection(3).Delete
End If
If .SeriesCollection.Count > 2 Then
MyChtObj.Chart.SeriesCollection(3).Delete
End If
If .SeriesCollection.Count > 2 Then
MyChtObj.Chart.SeriesCollection(3).Delete
End If