Как перестроить график с помощью макроса

[mchip]

Вот посмотрите...
Хотя макросы для этого вовсе не нужны

[Marchuk]

Sub Макрос1()


ActiveSheet.ChartObjects("Chart 1").Activate
With ActiveChart
.SetSourceData Source:=ActiveSheet.Range("a"), PlotBy:=xlColumns
.SeriesCollection(1).Name = "=Sheet1!R2C6"
.SeriesCollection.Add Source:=ActiveSheet.Range("b")
.SeriesCollection(2).Name = "=Sheet1!R2C5"
.SeriesCollection.Add Source:=ActiveSheet.Range("d")
.SeriesCollection(3).Name = "=Sheet1!R2C4"
End With


End Sub

дальше ты сам под себя

[ruavia3]

Mchip, круто!
А если график построенный на трех переменных, нужно перестроить, но только на двух других?
Просто получится, что смещение будет на 3 переменные и одна окажется лишняя.

[ruavia3]

Marchuk, спасибо! Тоже работает, но только в одну сторону. Как перестроить назад?

[Marchuk]

Сообщение от ruavia3

Marchuk, спасибо! Тоже работает, но только в одну сторону. Как перестроить назад?

писать код не буду.
Сделай глобальную переменную .....

что-то типа такого, при первом запуске колонки, абс
при следующем fgh, при каждом запуске будет менять .

Public Kod as Integer

Sub Макрос1()

if Kod =0 then 
ActiveSheet.ChartObjects("Chart 1").Activate
With ActiveChart
.SetSourceData Source:=ActiveSheet.Range("a"), PlotBy:=xlColumns
.SeriesCollection(1).Name = "=Sheet1!R2C6"
.SeriesCollection.Add Source:=ActiveSheet.Range("b")
.SeriesCollection(2).Name = "=Sheet1!R2C5"
.SeriesCollection.Add Source:=ActiveSheet.Range("d")
.SeriesCollection(3).Name = "=Sheet1!R2C4"
End With
kod = 1
else 
ActiveSheet.ChartObjects("Chart 1").Activate
With ActiveChart
.SetSourceData Source:=ActiveSheet.Range("f"), PlotBy:=xlColumns
.SeriesCollection(1).Name = "=Sheet1!R2C6"
.SeriesCollection.Add Source:=ActiveSheet.Range("g")
.SeriesCollection(2).Name = "=Sheet1!R2C5"
.SeriesCollection.Add Source:=ActiveSheet.Range("h")
.SeriesCollection(3).Name = "=Sheet1!R2C4"
End With
kod = 0
end if
End Sub

[mchip]

Подожди до вечера. Подробно объясню как перестраивать.

[ruavia3]

Спасибо, сейчас попробую.

[ruavia3]

Сообщение от mchip

Подожди до вечера. Подробно объясню как перестраивать.

Буду очень рад.

[ruavia3]

Marchuk, работает)) ура! А а как вставить корректную дату? Она задана тоже переменной, но при перестроении не меняется.

[ruavia3]

mchip,еще не вечер? Есть варианты, как можно перестроить?