Как в макросе выровнять текст в ячейке по центру?

[Vlad55515]

Как в макросе выровнять текст в ячейке по центру? Хотелось бы не банальной записью макроса

[economist]

LibreOffice 6.3 неплохо поддерживает макросы VBA. Макросы на VBA крайне лаконичны, в Интернете полно примеров. В Calc cработает даже самый простейший типа такого (см. вложение):

Код Выделить Развернуть


Option VBASupport 1
Sub ТекущуюЯчейку_ПоЦентру()
Selection.HorizontalAlignment = xlCenter
End Sub


Вместо Selection можно указывать диапазон в [ ], например так:
[B3:B10].HorizontalAlignment = xlCenter
[ИМЯ].HorizontalAlignment = xlCenter

[rami]

Выравнивание текста в ячейке:

Код Выделить Развернуть

Sub Main
Dim oSheet, oCell
oSheet = ThisComponent.Sheets(0)   'первый лист
oCell = oSheet.getCellRangeByName("A1")
'по горизонтали
oCell.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER   'другие: STANDARD, LEFT, CENTER, RIGHT, BLOCK, REPEAT
'по вертикали
oCell.VertJustify = com.sun.star.table.CellHoriJustify.CENTER   'другие: STANDARD, TOP, CENTER, BOTTOM
End Sub