2011年4月25日月曜日

列の削除

  
「列の挿入」の項とは逆に、シートから列を削除するサンプルコードを
記す。この例では、上図のシートの三列目から四列の空白列を削除し
て列を挿入する前の状態に戻す処理を行っている :
  
Sub ExampleDeleteColumns()
       Dim objSheet As Object
       objSheet = ThisComponent.CurrentController.Activesheet
       objSheet.Columns.removeByIndex(2, 4)
End Sub
  
結果は下図の通り、元の状態に戻った :
  
  

シートから列を削除する場合は removeByIndex メソッドを用いる。
removeByIndex メソッドの書式は下記の通り :
  
removeByIndex(ColumnNumberLines)
  
ColumnNumber には削除したい列の列番号を指定する。この例の
場合削除したい行が三列目なので、columnNumberには 2 を指定する。
Lines には削除したい列数を指定する。
removeByIndex メソッドは、戻り値を返さない。

0 件のコメント:

コメントを投稿