2011年4月25日月曜日

列の挿入

  
上記アクティブシートの三列目 (= B 列の右) に四列追加するサンプル
コードを以下に記す :
  
Sub ExampleInsertColumns()
       Dim objSheet As Object
       objSheet = ThisComponent.CurrentController.Activesheet
       objSheet.Columns.insertByIndex(2, 4)
End Sub

  
結果は下図の通り :
  
  
シートに列を挿入する場合は insertByIndex メソッドを用いる。
insertByIndex メソッドの書式は下記の通り :

insertByIndex(ColumnNumberLines)

ColumnNumber には (列を) 挿入したい列番号を指定する。列番号は 0

から始まるので、この例の場合三列目に追加したいので ColumnNumber
には 2 を指定する。
Lines には挿入したい列数を指定する。
insertByIndex メソッドは、戻り値を返さない。

0 件のコメント:

コメントを投稿