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は、多くのデータ系列があることに気づいていませんでした。私はちょうど幅と高さを少し調整し、それは図をリフレッシュし、すべてのシリーズがそこにあった。ありがとうございました。