セルの内容の配置 (横)

セルの内容の横方向の配置を設定するサンプルコードを下記に記す :
  
Sub ExampleCellHorijustify()
       Dim objSheet As Object
       Dim objCell As Object
       objSheet = ThisComponent.CurrentController.ActiveSheet
       '
       '標準(文字)
       objCell = objSheet.getCellRangeByName("A1")
       objCell.HoriJustify = com.sun.star.table.CellHoriJustify.STANDARD
       '
       '標準(数字)
       objCell = objSheet.getCellRangeByName("A2")
       objCell.HoriJustify = com.sun.star.table.CellHoriJustify.STANDARD
       '
       '左寄せ
       objCell = objSheet.getCellRangeByName("A3")
       objCell.HoriJustify = com.sun.star.table.CellHoriJustify.LEFT
       '
       '中央揃い
       objCell = objSheet.getCellRangeByName("A4")
       objCell.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER
       '
       '右寄せ
       objCell = objSheet.getCellRangeByName("A5")
       objCell.HoriJustify = com.sun.star.table.CellHoriJustify.RIGHT
       '
       '折り返し(両端揃え)
       objCell = objSheet.getCellRangeByName("A6")
       objCell.HoriJustify = com.sun.star.table.CellHoriJustify.BLOCK
       '
       '繰り返し
       objCell = objSheet.getCellRangeByName("A7")
       objCell.HoriJustify = com.sun.star.table.CellHoriJustify.REPEAT
End Sub
  
上記マクロの処理前のシートの状態は下図の通り :

  
マクロを処理した後のシートの状態は下図の通り :

  
セルの横方向の配置を設定する為には、Cell (Range) オブジェクトの
HoriJustify プロパティに com.sun.star.table.CellHoriJustify の enum
を指定する。
com.sun.star.table.CellHoriJustify の enum は下記の通り :
  
STANDARD : 標準。文字列の場合は左寄せ、数字の場合は右寄せ

LEFT : 左寄せ

CENTER : 中央揃え

RIGHT : 右寄せ

BLOCK : セル幅に合わせて折り返す (両端揃え)

REPEAT : セル幅に合わせてセルの内容を繰り返す