通過VBA創建動態圖表

我試圖用VBA創建動態圖表。該代碼本身工作正常，但我得到的問題是，線圖僅顯示21個數據系列中的10個。代碼本身通過.NewSeries添加了21個數據序列，但是當代碼完成時，該圖只顯示其中的10個。有沒有人有一個想法，爲什麼發生這種情況或有解決我的問題？通過VBA創建動態圖表

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

問候本傑明

來源

2017-07-28 Benjamin K

嗨，歡迎來到SO。我們需要你的代碼來幫助你，看看出了什麼問題。 – Moosli

我剛剛發佈了代碼，clmns大多數情況下是85左右，2300左右 –

我剛剛得到了解決，這只是一個顯示問題，Excel中沒有注意到，有很多數據系列。我只是稍微調整了寬度和高度，它刷新了圖表，所有系列都在那裏。謝謝。

來源

2017-07-28 07:15:21

通過VBA創建動態圖表

回答

相關問題