Диапазон данных диаграммы

[gsg]

Здравствуйте.

Возник вопрос, как получить диапазон данных ряда уже имеющейся диаграммы, если ряд ссылается на несвязанный диапазон

[IgorGO]

пробуйте так:

Function ChartRg(SheetNm As String, ChartNm As String) As String
  Dim s As String
  s = Sheets(SheetNm).ChartObjects(ChartNm).Chart.SeriesCollection(1).FormulaR1C1
  ChartRg = Mid(s, InStr(InStr(s, ",") + 1, s, ",") + 1, Len(s) - InStr(StrReverse(s), ",") - InStr(InStr(s, ",") + 1, s, ","))
End Function

[gsg]

Большое спасибо, все работает.