先ずは、セルの結合のサンプルコードから :
Sub ExampleCellMerge()
Dim objSheet As Object
Dim objRange As Object
objSheet = ThisComponent.CurrentController.ActiveSheet
objRange = objSheet.getCellRangeByName("A1:B2")
objRange.merge(True)
End Sub
セルを結合する為には、Range オブジェクトの merge メソッドの引数に
Trueを指定する。
逆にセルの結合を解除する場合は、同じく merge メソッドの引数にFalse
を指定する :
Sub ExampleCancelCellMerge()
Dim objSheet As Object
Dim objRange As Object
objSheet = ThisComponent.CurrentController.ActiveSheet
objRange = objSheet.getCellRangeByName("A1:B2")
Dim objSheet As Object
Dim objRange As Object
objSheet = ThisComponent.CurrentController.ActiveSheet
objRange = objSheet.getCellRangeByName("A1:B2")
objRange.merge(False)
End Sub
0 件のコメント:
コメントを投稿