シートの移動

下図の通り、ドキュメントに三つのシートがあったする。
  

  
このとき「Sheet2」を末尾に移動し、移動した後アクティブにするコードを
下記に記す :
  
Sub ExampleMoveSheet()
       Dim objController As Object
       Dim objSheet As Object
       '
       '「Sheet2」を末尾に移動
       ThisComponent.Sheets.moveByName("Sheet2", 3)
       '
       '移動後「Sheet2」をアクティブにする

       With ThisComponent

              objController = .getCurrentController()

              obSheet = .Sheets.getByName("Sheet2")

              objController.setActiveSheet(objSheet)

       End With

End Sub
  
シートを移動する為には、moveByName メソッドを使用する。
moveByName メソッドの書式は下記の通り :
  
moveByName(Sheetname, Index)
  
Sheetname には、移動する対象のシートのシート名を指定する。
Index には、移動先のインデックス番号を指定する。上記の例の場合、
シート数は三つなので、末尾に移動する為にはインデックス番号に 3
を指定する。
moveByName メソッドに戻り値はない。
  
処理を実行した結果は、下記の通り「Sheet2」が末尾に移動している :