2011年4月19日火曜日

シートの移動

下図の通り、ドキュメントに三つのシートがあったする。
  
  
このとき「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」が末尾に移動している :
  

0 件のコメント:

コメントを投稿