Excel-obazce-automatický text

[saabturboclub]

Dobré odpoledne,
v příloze je příklad vložených "obrazců", které ve výsledku tvoří velkého pavouka. Chtěl jsem se zeptat, nešlo by v excelu nějak udělat to, aby text uvedený v obrazcích byl propojený s buňkou (dle obrazce) v dalším listu? = aby při změně textu u obrazce na listu Data se text změnil i v obrazci. Případně třeba pomocí VBA,při stisku by se text aktualizoval.
Děkuji za pomoc, Pavel

[Reklama]

[pavel.lasak]

Například takto: předpokládám tlačítko CommandButton1 na listě. Natvrdo sjem vybral jedenobdelník.

Kód: Vybrat vše

Private Sub CommandButton1_Click()
hodnota = Worksheets("DATA").Range("B2").Value

ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = hodnota
End Sub


Nešlo by využít při tvorbě SmartArt http://office.lasakovi.com/excel/vlozit ... xcel-2010/

[saabturboclub]

Ahoj,
děkuji za doplnění, jen jestli jsem to dobře vyzkoušel, tak bych teda měl pro každý "obrazec" udělat zvlášť kód?? Nebo by šlo, aby byla jedna "funkce", která by vyhledala název obrazce v určitém sloupci a pokud se obrazec stejného názvu nachází přiřadilo daný text z druhého sloupce? Já když budu mít třeba 40,50 obrazců, bylo by to tak lehčí a abych se nemusel s každým vypisovat, šlo by aby i byla "funkce" naopak, že by po stisku vypsal do dané oblasti všechny nacházející se obrazce (názvy jejich) a vedle toho i vypsal text, který aktuálně obrazec obsahuje?
Používám práve určité podklady ze kterých beru obrazce (defakto i tuto přiloženou metodu, které se zatím držím ),tak že mají různé názvy a tím odpovídám i na druhý nápad ohledně SmartArt, proč nepoužívám SmartArt.

Na SmartArt jsem teda koukal a nevím si moc rady, který bych měl nejlépe využít na "strom", který je na principu viz,nová příloha. Je to popis určité činosti aplikace, která háže "otázky" k nim následně ukáže "možnosti" a na základě dané "možnosti" pak provádí akci, uživatel nevidí co bude provádět na základě výběru možnosti, ale ve stromu musím mít uvedeno....