Запись макроса для создания графиков и их объединение

@NikD · Регистрация: 06.12.2012

Author24 — интернет-сервис помощи студентам

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

Нужна помощь с макросом. Записал макрос для построения графика. Немного усовершенствовал его, чтобы он мог построить графики по некоторому объему однотипных данных. Графики строит верно, но возникла необходимость их объединения. В VBA не силён поэтому, можно поподробнее разжевать? Спасибо! Таблица для примера.

Visual Basic

Sub Макрос2()
'
' Макрос2 Макрос
'
 
'
    For i% = 2 To 5
        ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.FullSeriesCollection(1).Name = Sheets("Авт. граф.").Cells(i, 1)
        ActiveChart.FullSeriesCollection(1).Values = Sheets("Авт. граф.").Range(Cells(i, 2), Cells(i, 13))
        ActiveChart.FullSeriesCollection(1).XValues = Sheets("Авт. граф.").Range(Cells(1, 2), Cells(1, 13))
    Next i
End Sub

	17.04.2018, 13:55

Опции темы