Bylo by to hezký, kdyby to tak šlo :-) a sám bych se rád přiučil :-), ale bohužel to asi bez makra nepůjde.
Něco podobného řeším makrem, kdy mám jeden zdrojový list s grafy, jenž se neodkazují na oblasti typu A2-A10, ale na pojmenované oblasti, jenž mám na každém listu pojmenovány stejně, ale u každého listu se mohou odkazovat na jinou oblast dat (různé počty řádků). Ze vzorového listu pak makrem zkopíruji graf do požadovaného listu a nakonec mu musím aktualizovat i řady a to tak že dosadím nový název listu.
kousek makra:
Dim jm as string
jm = "Novy_list"
Sheets("Zdroj").Select
ActiveSheet.ChartObjects("graf 1").Activate
ActiveChart.ChartArea.Copy
Sheets(jm).Select
Range("I1").Select
ActiveSheet.Paste
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "='" & jm & "'!MATERIAL_POPISKY"
ActiveChart.SeriesCollection(1).Values = "='" & jm & "'!MATERIAL_ORIGINAL"
ActiveChart.SeriesCollection(2).XValues = "='" & jm & "'!MATERIAL_POPISKY"
ActiveChart.SeriesCollection(2).Values = "='" & jm & "'!MATERIAL_UPDATE"
M@citovat
Něco podobného řeším makrem, kdy mám jeden zdrojový list s grafy, jenž se neodkazují na oblasti typu A2-A10, ale na pojmenované oblasti, jenž mám na každém listu pojmenovány stejně, ale u každého listu se mohou odkazovat na jinou oblast dat (různé počty řádků). Ze vzorového listu pak makrem zkopíruji graf do požadovaného listu a nakonec mu musím aktualizovat i řady a to tak že dosadím nový název listu.
kousek makra:
Dim jm as string
jm = "Novy_list"
Sheets("Zdroj").Select
ActiveSheet.ChartObjects("graf 1").Activate
ActiveChart.ChartArea.Copy
Sheets(jm).Select
Range("I1").Select
ActiveSheet.Paste
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "='" & jm & "'!MATERIAL_POPISKY"
ActiveChart.SeriesCollection(1).Values = "='" & jm & "'!MATERIAL_ORIGINAL"
ActiveChart.SeriesCollection(2).XValues = "='" & jm & "'!MATERIAL_POPISKY"
ActiveChart.SeriesCollection(2).Values = "='" & jm & "'!MATERIAL_UPDATE"
M@citovat