Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 29. 4. 2015 15:00:04

Marrtt
Člen
Registrace: 25. 2. 2015
Příspěvků: 115

odsazení textu makrem

Dobrý den
prosím o radu, jestli někdo neznáte příkaz pro odsazení textu nebo čísla v buňce při zápisu makrem (aby text nebyl nalepený na okraji buňky).

Něco je tady dle D.Sedláčka:
"...Shrnutí
Vlastností písma je daleko více a jejich nastavení naleznete na webu CharacterProperties..." ,

ale nepřipadá mi, že by nějaký z popsaných parametrů byl pro odsazení. Chtěl jsem se vyhnout definování stylu, raději bych to řešil příkazem.
Děkuju
Martin

Offline

#2 29. 4. 2015 15:27:49

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 3,467

Re: odsazení textu makrem

Spíš se dostanete na příkaz align (ale to je střed a kraje. Je možné udělat formát čísla jako vlastnost buňky a makrem buňku naformátovat.
     Pokud by Vám to nevadilo, tak lze udělat například string """   """ a slepit s číslem. Potom by buňka mohla vypadat takto :
Cell.Formula = "="& """   """ & číslo. Respektice dát Char(32) a Char(34) tedy znak mezery a end(u). Po vypsání by měly zůstat v sešitě

="   " & 1

pro číslo 1 odsazené zleva o 3 mezery.
Pokud se to udělá správně tak to funguje stejně jako formát buňky. Problém může být s tím, že buňka už není formátovaná na číslo, ale vzorec, respektive string. Pokud by se Vám povedlo naformátovat string, musel byste makrem (nebo vzorcem) načítat jako VAL.


     Vlastnost nastavanou makrem otestujte pomocí vzorce "=CELL("format";buňka)"


Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#3 29. 4. 2015 15:47:19

Marrtt
Člen
Registrace: 25. 2. 2015
Příspěvků: 115

Re: odsazení textu makrem

Trošku jsem to oběhnul tímhle (naštěstí je to string, takže se to netluče):

arrea.string = "   "+fin_acc.model.finacc_num_box.stringitemlist(k)
M

Offline

#4 29. 4. 2015 18:15:49

Marrtt
Člen
Registrace: 25. 2. 2015
Příspěvků: 115

Re: odsazení textu makrem

"...Spíš se dostanete na příkaz align (ale to je střed a kraje. ..." --?? pokusil jsem se k tomu něco vyhledat, ale vůbec jsem nenašel způsob, jak přikaz "ALIGN" používat. Nemáte nějaký odkaz?
M

Offline

#5 30. 4. 2015 01:44:15

lp.
Člen
Registrace: 24. 9. 2009
Příspěvků: 844

Re: odsazení textu makrem

Buď formát buňky, zarovnat vlevo, potom lze nastavit odsazení (nedíval jsem se na LO, možná to umí i zprava podle Excelu).

Nebo formát buňky, ohraničení a nastavit vzdálenost k obsahu zleva i zprava podle vkusu.

Offline

#6 30. 4. 2015 09:09:22

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 3,467

Re: odsazení textu makrem

Tak to align a další formátování vypadá takto :

.CharWeight = com.sun.star.awt.FontWeight.BOLD
.CharPosture = com.sun.star.awt.FontSlant.ITALIC
.CharUnderline = com.sun.star.awt.FontUnderline.BOLD
.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER  '(STANDARD),(BLOCK),(REPEAT),(LEFT),(CENTER),(RIGHT)
.VertJustify = com.sun.star.table.CellVertJustify.BOTTOM  '(STANDARD),(TOP),(CENTER),(BOTTOM)
.Orientation = com.sun.star.table.CellOrientation.STACKED '(STANDARD),(TOPBOTTOM),(BOTTOMTOP),text o 90° (STACKED)

     Není to veškeré formátování (možnosti) ale jsou to asi ty nejpoužívanější.


Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#7 30. 4. 2015 11:00:47

Marrtt
Člen
Registrace: 25. 2. 2015
Příspěvků: 115

Re: odsazení textu makrem

Díky, jdu to tam nacpat a vyzkoušet
M

Offline

#8 30. 4. 2015 11:27:53

ludviktrnka
Člen
Registrace: 9. 7. 2009
Příspěvků: 711

Re: odsazení textu makrem

Toto p. Sedláček v malých makrech popisuje, ale to neřeší odsazení


LibreOffice 5.4.

Offline

#9 1. 5. 2015 00:11:52

lp.
Člen
Registrace: 24. 9. 2009
Příspěvků: 844

Re: odsazení textu makrem

Odsazení (v aktivní buňce), zleva 8 mm a zprava 5 mm:

with ThisComponent.getCurrentController().getSelection()
       .ParaLeftMargin = 800
       .ParaRightMargin = 500
end with	

Offline

Zápatí