Диапазон значений на диаграмму

leomaxg Пользователь Сообщений: 10 Регистрация: 01.01.1970	#1 27.04.2015 11:04:01 Вопрос, как программно узнать диапазон диаграммы? Пример на картинке к теме. Прикрепленные файлы Пример.JPG (96.88 КБ)

Максим Зеленский Пользователь Сообщений: 4663 Регистрация: 11.06.2014 Microsoft MVP 2018-2022	#2 27.04.2015 12:34:48 Программно - через VBA? F1 творит чудеса

leomaxg Пользователь Сообщений: 10 Регистрация: 01.01.1970	#3 27.04.2015 12:50:33 Да

Слэн

Пользователь

Сообщений: 5192 Регистрация: 16.01.2013

27.04.2015 13:24:31

может быть так?

Код

Sub Макрос()
Dim x, s
On Error Resume Next
Set s = Cells(Rows.Count, 1)
   For Each x In Split(ActiveChart.SeriesCollection(1).Formula, ",")
    Set s = Union(s, Range(x))
   Next x
    s = Mid(Replace(s.Address, Cells(Rows.Count, 1).Address, ""), 2, 999)
End Sub

Живи и дай жить..

leomaxg Пользователь Сообщений: 10 Регистрация: 01.01.1970	#5 15.05.2015 16:42:33 Огроное спасибо, то, что нужно!