MS Excel

Ahoj, vedel by niekto, ako do textboxu zapísať pomocou VBA text:

ø 4

kedy znak ø by zostával a menil by som iba hodnotu priemeru, t.j. miesto ø 4 napr. ø 5 atd? Potreboval by som nejaký šikovný kódik, ktorý by to zvládol... Proste, meniť text v textboxe v prílohe...

Zaslat odpověď >

AL(28.5.2015 22:06)#025235

Tak som to obišiel, proste fí v textboxe ponechám a mením až znaky za fí:
Dim shp As Shape
Set shp = ActiveChart.Shapes("TextBox1")
With shp.TextFrame2.TextRange.Characters
.Text = Left(.Text, 2) & "5"
End With Stačí si o tom chvíľu sám so sebou pohovoriť :)citovat

elninoslov(28.5.2015 22:09)#025236

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

AL(28.5.2015 22:14)#025237

tajne som spoliehal na snaživého elnina :), ale medzitým som to vyriešil, páč som mal náskok :)
Každopádne, díky, ChrW je to tajomstvo, ktoré som nepoznal :)citovat

AL(28.5.2015 22:23)#025238

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

elninoslov(28.5.2015 22:28)#025239

Keďže Mapa znakov vo Win udáva vľavo dole HEX kód, tak sa môže použiť ten:
ChrW(&HF8) 'To "&H" je značka pre HEX kód, a to "F8" je skrátené "00F8" z Mapy znakovcitovat

AL(28.5.2015 22:34)#025240

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

Téma: Symbol Fí (priemer) v textboxe

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje