přejmenování listu a názvu grafu

[Sirka]

zdravim potřeboval bych poradit

potřeboval bych přejmenovat listy v sešitě a názvy v grafu nevím jestli to jde nějak jako odkaz na buňku v jiném listu nebo ne :X


mám graf1-7 list1 a texty

listy bych potřeboval mít pojmenované například z listu texty buňky A1-J1

a názvy grafů jde hlavně o to že je to například .. TEXT DUBEN další TEXT2 DUBEN tzn jde mi o měnění automaticky měsíce a pak 3 grafy co se jmenujou text3 text4 a text5

> duben bych měl napsaný na texty A2 zbyle texty A3 A4 A5 ...

pomohl by mi někdo?

--- Doplnění předchozího příspěvku (19 Črc 2012 18:04) ---

tak ty názvy grafů bych měl > textová pole s odkazem na buňku

> ještě nějak to přejmenovávání listů :X

[Reklama]

[guest]

Listy se mohou sami přejmenovávat jen makrem. Pokud textem z buňky, pak třeba po události Change listu.

[Sirka]

a mohl by jsi mi pomoct s tim makrem? nějak navést. Makra dělám asi po 2. :X

--- Doplnění předchozího příspěvku (19 Črc 2012 19:52) ---

tak už jsem u jineho problemu xD

příkaz Worksheets(5).Name = Range("F3") funguje, ale myslel jsem si že Graf a List jsou stejný, takže hledám "pojmenování pro Graf na novem listu"

[cmuch]

Tak nevím zda to pomůže

Kód: Vybrat vše

' prida nazev grafu do grafu
   Sheets(1).ChartObjects("Graf 1").Chart.SetElement (msoElementChartTitleAboveChart)
   ' takto se dá přejmenovat název grafu
   Sheets(1).ChartObjects("Graf 1").Chart.ChartTitle.Text = "New graf"
   ' takto se prejmenuje název celého grafu (objektu)
   Sheets(1).Shapes("Graf 1").Name = "NewNazev"

[Sirka]

tak nějak mi to nefunguje ... Graf1 list to nepřejmenuje na nic píše že to nenalezlo objekt

graf je vygenerovaný jako Nový list a to bych potřeboval přejmenovat, myslím že todle je na přejmenování grafu na stránce např List1 atd..

[cmuch]

A přejmenoval si název listu z 1 na zprávný název a původní název objektu místo Graf1 na zprávný?
JInak budeš muset připojit sešit aby se to dalo nějak zdárně vyřešit.