設置系列集合爲範圍 - VBA - Excel

Question

我有一個圖表集合系列。我想將收集系列的範圍向右擴展一列。下面的代碼工作。但是，它假定我知道收集系列的範圍（下例中的「B36：DA36」）。事實上，我希望收集系列的初始範圍（在調整大小之前）能夠以動態的方式定義，因爲它每天都在變化，並將其定義爲下面的內容，因此無法完成這項工作。

Sub resize_collection_series() 

Dim NumRows As Long 
Dim NumCols As Long 
Dim Rng As Range 

Set Rng = Range("B36:DA36") 

NumRows = Rng.Rows.Count 
NumCols = Rng.Columns.Count 

Worksheets("Sheet1").Activate 
ActiveSheet.ChartObjects("Chart 6").Activate 
ActiveChart.SeriesCollection(1).Select 
ActiveChart.SeriesCollection(1).Values = Rng.Resize(, NumCols + 1) 
ActiveChart.SeriesCollection(1).XValues = Rng.Resize(, NumCols + 1) 
End Sub 

我想是這樣的withouth的成功：

Set Rng = Worksheets("Sheet1").ChartObjects("Chart 6").SeriesCollection(1) 
Set Rng = Worksheets("Sheet1").ChartObjects("Chart 6").SeriesCollection(1).Values 

謝謝您的幫助！

Answer 1

請嘗試下面的代碼，將「圖表6」SeriesCollection(1)動態設置爲第12行現有列的數量（根據您的意見）。

代碼

Option Explicit 

Sub resize_collection_series() 

Dim NumRows As Long 
Dim NumCols As Long 
Dim Rng As Range 
Dim LastCol As Long 

Dim MyCht As ChartObject 
Dim Ser As Series 

' get dynamic last column at row 12 
LastCol = Cells(12, Columns.Count).End(xlToLeft).Column 

' set the Range dynamic 
Set Rng = Range(Cells(12, 1), Cells(12, LastCol)) 

' set "Chart 6" to MyCht Variable 
Set MyCht = Worksheets("Sheet1").ChartObjects("Chart 6") 
With MyCht 
    Set Ser = .Chart.SeriesCollection(1) 
    With Ser 
     .Values = "=" & Rng.Address(False, False, xlA1, xlExternal) 

    End With 
End With 

End Sub