VBA. Списки диапазонов, построенных на основных и вспомогательных осях графика

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

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

13.06.2020 06:29:58

Добрый день. Помогите пож с задачей, есть график с основной и вспомогательной осью У. Как можно получить (вытащить) списки диапазонов на которых построены графики для каждой оси? В примере есть диапазоны и график, также есть ответ который нужно получить с помощью VBA.

Прикрепленные файлы

Пример .xlsm (19.32 КБ)

Изменено: Ливиан - 13.06.2020 07:53:35 (отредактировал)

Андрей VG

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

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

Excel 2016, 365

13.06.2020 09:32:39

Доброе время суток.
Как-то так.

Код

Public Sub ShowShortChartSeriesInfo()
    Dim pChartObject As ChartObject
    Dim pSeries As Series
    
    For Each pChartObject In ActiveSheet.ChartObjects
        For Each pSeries In pChartObject.Chart.FullSeriesCollection
            Debug.Print pSeries.AxisGroup & " = " & pSeries.Formula
        Next
    Next
End Sub

Ливиан Пользователь Сообщений: 301 Регистрация: 28.04.2012	#3 13.06.2020 09:49:16 Спасибо огромное! Отлично работает!