А как у вас?
У меня на 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