選択範囲セルのテキストを自動的に折り返す on/off LibreOffice4.4 Calc Basic

選択範囲セルのテキストを自動的に折り返す on/off LibreOffice4.4 Calc Basic

選択範囲セルのテキストを自動的に折り返す ON （True）を実行した状態

 

Sub set_waraptext_true
'選択範囲セルのテキストを自動的に折り返す　ON

ThisComponent.CurrentController.selection.IsTextWrapped = True

End Sub

Sub set_waraptext_false
'選択範囲セルのテキストを自動的に折り返す　OFF

ThisComponent.CurrentController.selection.IsTextWrapped = false

End Sub

Sub warapOnOff
If ThisComponent.CurrentController.selection.IsTextWrapped = True  Then
ThisComponent.CurrentController.selection.IsTextWrapped = false
Else ThisComponent.CurrentController.selection.IsTextWrapped = True
End If
End Sub

 

タグ：IsTextWrapped