Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

20 Ноябрь 2019, 08:11 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Как в макросе выровнять текст в ячейке по центру?  (Прочитано 207 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Vlad55515
Новичок
*
Offline Offline

Сообщений: 1


« Стартовое сообщение: 18 Октябрь 2019, 10:17 »

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

Сообщений: 1 033


« Ответ #1: 18 Октябрь 2019, 10:51 »

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

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

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

* По центру.xls (8.5 Кб - загружено 2 раз.)
« Последнее редактирование: 18 Октябрь 2019, 12:48 от economist » Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 816


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #2: 18 Октябрь 2019, 11:02 »

Выравнивание текста в ячейке:
Код:
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
Записан

Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!