Tady je makro :
Sub OtocText
Bunka = ThisComponent.CurrentController.getSelection()
With Bunka.RangeAddress
SH = .Sheet
SC = .StartColumn
SR = .StartRow
End With
oSheet = ThisComponent.Sheets(SH)
Bunka = oSheet.GetCellbyPosition(SC, SR)
With Bunka
'.CellBackColor = RGB(255,128,128)
'.CharFontName = "ARIAL"
'.CharHeight = 12
'.CharColor = RGB(10,20,40)
.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)
end With
End Sub
Zřejmě by to chtělo makro uložit mezi "Vaše makra STANDARD" - tedy do knihovny nad celým balíkem. Makro by mělo mít nejlépe přiřazenu klávesovou zkratku, nebo úpravu menu - hlavní pruh tam kde je Nápověda až Soubor. Také by to mohlo být řešeno ikonou.
Makro má ještě "vypnutou" úpravu písma, barvu pozadí a podobně. Vlastní nastavení zarovnání je jako poznámka vedle. Pokud budete měnit předvolenou hodnotu zachovejte velkost písma. V minulosti to stačilo k chybě. Já to už ani netestuji (zda jde zapsat malými písmeny, nebo jinak nežli je uvedeno v hranatých závorkách).
Momentálně je to nastaveno na jedinou buňku. Může se to předělat na úsek vícero buněk. To mi ale zrovna pro tento případ nepřipadá vhodné.
Makro načte buňku ve které je kurzor takže stačí umístit na buňku a spustit makro.
PS:
Otestujte a písněte jestli to funguje, nebo jestli byste potřeboval nějakou úpravu.
Editoval neutr (17. 11. 2015 10:24:41)
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É
