< návrat zpět

MS Excel


Téma: kopírováni grafu rss

Zaslal/a 8.4.2014 9:11

Zdravím, potřeboval bych zkopírovat víc grafu na jednou z jednoho listu do dalších, ale aby se řídily vždy danou tabulkou v tom konkrétním listu, předem díky 1

Zaslat odpověď >

#018735
Jeza.m
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
#018736
avatar
Občas to dělám, ale opačně. Namnožím listy a pak k nim přidám obsah (tabulky).citovat
icon #018771
eLCHa
Ano, přesně jak píše lubo.
Někdy se stačí zamyslet, jak funguje excel a dá se vymyslet spousta triků, jak si ulehčit práci a bez VBA.
Toto je jeden z nich ;)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje