使用动态范围动态更新图表系列

Question

我需要一些编码帮助，因为我对编码还很陌生，不明白我在做什么（写）错了。这是我第一次尝试使用 vba 更新图表，并希望正确处理。感谢您的帮助:)

我有一个临时更新的时间序列。我希望使用 vba 更新图表，但是当我访问图表对象时出现错误。那么，我做错了什么？

这就是我想要做的（图表和系列都有名称）：

Dim tsEURLengde As Integer
Dim rngEUR As Range

tsEURLengde = Range("A2").Value 'A2 is count of rows containing chartdata

Set rngEUR = cnGrafer.Range("B5", cnGrafer.Range("b5").Offset(tsEURLengde)) 'cnGrafer is the ws codename
cnGrafer.ChartObjects("chSpreader").SeriesCollection("Bank 2 5y").Values = cnGrafer.Range("B5", cnGrafer.Range("b5").Offset(tsEURLengde))

我收到的错误消息是：“运行-时间错误 438：对象不支持此属性或方法”

干杯:)

Answer 1

两期：

是Chart.SeriesCollection，不是ChartObject.SeriesCollection。

.ChartObjects("chSpreader").Chart.SeriesCollection...

与其分配 Range，不如分配其 .Address，包括 sheet 名称：

With cnGrafer
   Dim s As String
   s = "'" & .Name & "'!" & .Range("B5",.Range("b5").Offset(tsEURLengde)).Address

   .ChartObjects("chSpreader").Chart.SeriesCollection("Bank 2 5y").Values = s
End With

使用动态范围动态更新图表系列

Dynamic update of chart-series using a dynamic range

excel

vba

range

excel-charts