通过VBA创builddynamic图表

我试图用VBA创builddynamic图表。 该代码本身工作正常，但得到的问题是，线图只显示了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

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