MS Excel

Worksheets("Sheet1").Shapes(1).OLEFormat.Object.Text = ChrW(248) & " niečo"
Samozrejme je vhodné si .Shapes(1) premenovať

EDIT:
Prvok si premenuj tak , že mu nastav makro na toto:
Sub Premenuj()
Dim o As Object
Set o = ActiveSheet.Shapes(Application.Caller)
o.Name = "tbPriemer"
End Sub
a klikni na prvok. Potom tomu prvku makro zruš. A už sa volá "tbPriemer". Ja mám medzi prvkami rád poriadok, a ja chcem určovať ako sa ktorý volá, najmä ak ich je viac rovnakých.
Potom to zameníš za:
Worksheets("Sheet1").Shapes("tbPriemer").OLEFormat.Object.Text = ChrW(248) & " niečo"citovat

jj, to už nepotrebujem, to premenovanie, ja som si práve ten prvok pomenoval - na TextBox1. Je to popisok grafu, v každom grafe budú dva takéto popisky, jeden sa volá TextBox1, druhý TextBox2. Na stránke bude niekoľko grafov, v každom sú uvedené dva Textboxy, žiadny neporiadok v tom nemám, díky:)citovat

njn, ja som opäť na mapu znakov zabudol a HEX (alebo ASCI) kód hľadal cez vloženie symbolu - a tam som fí nikde nevidel :). Takže ďakujem za cenné rady:
1. hľadať v mape znakov
2. objaviť fn ChrW
3. používať vlastnosť OLEFormat objektu Shape
Z jednej otázky som sa nakoniec naučil celkom dosť, díky :), ešte si to pamätať do budúcna..
Teraz som zistil, že som mal asi vlčiu tmu, páč už to fí vidím i vo vložení symbolov..citovat