通过VBA创建动态图

Question

我今天尝试使用VBA创建动态图表。代码本身工作正常，但我遇到的问题是，线图只显示21个数据系列中的10个。代码本身通过.NewSeries添加了21个数据系列，但是当代码完成时，图表只显示其中的10个。有没有人知道为什么会发生这种情况或解决我的问题？

ActiveSheet.Shapes.AddChart2(, xlLine, 0, 0, 1400).Select
Dim cht As Chart
Set cht = ActiveChart
cht.HasLegend = True
cht.ChartTitle.Text = "Test"
    With ActiveChart
    Do Until .SeriesCollection.Count = 0
        .SeriesCollection(1).Delete
    Loop
End With  
For i = 2 To clmns Step 4
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(cnt).Name = Worksheets(1).Cells(1, i)
ActiveChart.FullSeriesCollection(cnt).Values = Worksheets(1).Range(Worksheets(1).Cells(1, i), Worksheets(1).Cells(rws, i))
cnt = cnt + 1
Next

问候 本杰明

Answer 1

我刚拿到解决方案，它只是一个显示错误，excel没有注意到有那么多数据系列。我只是稍微调整了宽度和高度，它刷新了图表，所有系列都在那里。谢谢。