Libre:080 入力データを複数行にする

cellのIsTextWrappedをTrueに設定するだけです。

 

 

Sub ksTextWrap


Dim oDoc as Object
Dim objSheet as Object
Dim cellRange as Object

objSheet = ThisComponent.getSheets().getByIndex(0)
cellRange = objSheet.getCellByPosition(0, 0)
cellRange.IsTextWrapped = True

End Sub

コメントを残す

メールアドレスが公開されることはありません。

CAPTCHA