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

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

5 Июль 2020, 17:46 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: [BUG?] Что-то не так со свойством Calc: AnnotationShape.TextAutoGrowHeight  (Прочитано 280 раз)
0 Пользователей и 1 Гость смотрят эту тему.
eeigor
Ubuntu 18.04 LTS
Форумчанин
***
Offline Offline

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


« Стартовое сообщение: 11 Июнь 2020, 20:31 »

А как у вас?
У меня на Ubuntu Linux 18.04 LTS : LibreOffice 6.4.4.2 не работает подстройка фигуры под высоту комментария к ячейке при создании комментария через интерфейс пользователя, и это некрасиво выглядит. На скриншоте: после установке флажка "Подогнать ширину по тексту" (флажок "Подогнать высоту по тексту" уже установлен) ширина фигуры подгоняется под текст (текст будет занимать меньше строк, чем изначально), а высота фигуры не обновляется.

Пришлось "поставить заплатку"... (но это неудобно).

Свойство <AnnotationShape.TextAutoGrowHeight [Default is True]> работает не так, как ожидалось. Поэтому вставляем комментарий с пробелом (создать просто пустой комментарий нельзя) вместо текста, а полное значение вводим после установки свойства <AnnotationShape.TextAutoGrowWidth:=True [Default is False]>.

Так работает, а вот через интерфейс пользователя нет. Или что я делаю не так? Под Windows 10 такая же фигня.

Код:
' Creates a new annotation.
' oCell - the cell object that will contain the annotation.
' sText - contains the annotation text.
Sub CreateAnnot(oCell As Object, sText As String)
Dim oAnnot As Object

With ThisComponent.Sheets(oCell.CellAddress.Sheet).Annotations
.insertNew(oCell.CellAddress, " ")  'just passing a space instead of sText
oAnnot = .getByIndex(.Count - 1)  'last added item
With oAnnot.AnnotationShape
.TextAutoGrowWidth = True
.Text.String = sText
End With
End With
End Sub


* Снимок экрана от 2020-06-11 20-39-30.png (62.05 Кб, 1123x551 - просмотрено 4 раз.)

* Снимок экрана от 2020-06-11 20-55-55.png (5.34 Кб, 242x150 - просмотрено 4 раз.)
« Последнее редактирование: 12 Июнь 2020, 20:49 от eeigor » Записан
mikekaganski
Гуру
*******
Online Online

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 919


« Ответ #1: 12 Июнь 2020, 09:30 »

[BUG]

Дайте номер в багзилле, пожалуйста.
Записан

С уважением,
Михаил Каганский
eeigor
Ubuntu 18.04 LTS
Форумчанин
***
Offline Offline

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


« Ответ #2: 12 Июнь 2020, 20:44 »

Нет, я только предположил (возможно, неточно выразился).
Создайте многострочный комментарий у себя, выйдите из режима редактирования.
Потом попробуйте изменить его так, чтобы он стал однострочным. Высота фигуры должна равняться одной строке. У меня этого не происходит почему-то, как описал выше...
« Последнее редактирование: 12 Июнь 2020, 20:49 от eeigor » Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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