设置系列集合为范围 - 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