День добрый. Вопрос по LO вообще и по LO Basic в

частности.

Есть ли в LO вариант сгруппировать строки в какую-либо строку сверху или снизу? Если можно, то что за опция отвечает за это в Бэйсике?

В VBA реализуется так:
With ThisWorkbook.Worksheets(1)
Range(.Cells(2, 1), .Cells(5, 1)).Rows.Group
.Outline.SummaryRow = xlAbove
End With
Код сгруппирует строки со 2-й по 5-ю, а плюсик будет торчать у первой строки. Т.е., первая строка будет выступать своего рода заголовком.

3 ответов

15 просмотров

Доброго дня! LibreOffice Basic (LO Basic) действительно поддерживает группировку строк, однако для управления позицией строки с кнопкой сворачивания/разворачивания (SummaryRow) можно использовать специальные свойства. Вот пример кода на LO Basic, который группирует строки со 2-й по 5-ю и устанавливает кнопку сворачивания над группой: Sub GroupRowsWithSummaryAbove Dim oSheet As Object Dim oRange As Object Dim oOutline As Object ' Получаем доступ к активному листу oSheet = ThisComponent.CurrentController.ActiveSheet ' Определяем диапазон строк для группировки (2-я по 5-ю строки) oRange = oSheet.getCellRangeByPosition(0, 1, 0, 4) ' Создаем группировку строк oRange.Rows.Group ' Устанавливаем строку-сводку над группой oOutline = oSheet.getRows().getPropertyValue("Outline") oOutline.SummaryBelow = False End Sub В данном коде: - ThisComponent.CurrentController.ActiveSheet используется для получения текущего активного листа. - getCellRangeByPosition(0, 1, 0, 4) выбирает диапазон ячеек (столбец 0, строки 1-4). - Rows.Group создает группу строк. - getRows().getPropertyValue("Outline") используется для получения объекта Outline, а затем свойство SummaryBelow устанавливается в False для размещения кнопки сворачивания над группой строк. Этот код аналогичен вашему VBA коду и реализует ту же функциональность в LibreOffice.

Сработало?

Похожие вопросы

Обсуждают сегодня

Добрый вечер. Подскажите, пожалуйста, возможно ли макросом создать фигуру из меню Вид→Панели инструментов→Рисование? И если возможно, то как? Инстукция типа CreateInstance("...
A Lumentulo
4
А как проверять номера и операторов,если разрешено переходить со своим номером от оператора к оператору? Не факт,что 912 окажется МТС
Максим Еремеев
2
здравствуйте! как импортировать (подгрузить) таблицу из пдф-файла в таблицу, чтобы потом сделать по полученным результатам сводную. апд. есть выписка из банка по счету, надо ...
anfishka anf
7
Меня вот вопрос интересует. У меня тема офиса подхватывается с оболочки budgie. Но именно в либре она глаза режет. Как то можно установить тему независимо от оболочки? Получал...
Nikita Aksenov
4
Добрый день. Как поделить лист А4 на прямоугольники чтобы при распечатывании были видны границы прямоугольников, чтобы потом по ним можно было разрезать?
Максим
3
может в курсе кто, если из ecalc выгружать в google spreadsheets, то все формулы подгрузятся нормально? или есть какие-то уникальные у либреофиса?
eugene afx
1
как вы себе это видите? можно из структуры текстового документа сделать презентацию по слайдам оно разобьет
Kompilainenn
4
Добрый день, LO Writer, проблема с нумерацией таблиц (вставка названия). У меня два стиля нумерованных списка, один для основного текста (вида 1.1.1) другой доя приложений (ви...
Виктор
6
У меня наверное совсем простой вопрос, но я не знаю как это решить. Скажите пожалуйста, как поставить в либер офис номера страниц в документе?
Артем Перлик
2
Всем добрый день. Расскажите, пожалуйста, как правильно копировать формулы в таблице Writer? На сколько я вижу, если я в ячейке столбца создаю формулу и хочу ее скопипастить в...
Alex
2
Карта сайта