Автоматическое постоение биржевых диаграмм

[mezolit]

Всем привет!
Может кто подкинет идею как можно автоматически постоить ряд диаграмм через определенное количество ячеек.

В прикрепленном файле котировки валютной пары австралийский доллар/доллар США. Стоит задача постоить диаграммы этой пары на каждую среду. При этом временной диапазон диаграммы должен охватывать период с 21.00 до 23.45.

[doober]

Подкидываю идею

Создаете макросом диаграмму Диаграмма XXX
И заполняете ее данными.
X1-это массив времен
Y1,Y2,Y3,Y4 - соответствующие данные

   With ActiveSheet.ChartObjects("Диаграмма XXX").Chart
            .SeriesCollection.NewSeries
            .SeriesCollection(1).Name = "??x"
            .SeriesCollection(1).XValues = X1
            .SeriesCollection(1).Values = Y1
            .SeriesCollection.NewSeries
            .SeriesCollection(2).Name = "???x"
            .SeriesCollection(2).XValues = X1
            .SeriesCollection(2).Values = Y2
              .SeriesCollection.NewSeries
            .SeriesCollection(3).Name = "????x"
            .SeriesCollection(3).XValues = X1
            .SeriesCollection(3).Values = Y3
            .SeriesCollection.NewSeries
            .SeriesCollection(4).Name = "?????x"
            .SeriesCollection(4).XValues = X1
            .SeriesCollection(4).Values = Y4
                   
        End With