Код: Выделить всё
ActiveChart.SetSourceData Source:=Range(Cells(15, 3), Cells(15, 12))
Код: Выделить всё
ActiveChart.SeriesCollection(1).XValues = Range(Cells(6, 3), Cells(6, 12))
Модератор: Дед Пахом
Код: Выделить всё
ActiveChart.SetSourceData Source:=Range(Cells(15, 3), Cells(15, 12))
Код: Выделить всё
ActiveChart.SeriesCollection(1).XValues = Range(Cells(6, 3), Cells(6, 12))