OOobbs2/34

OOobbs2/34

• サマリ: アウトライン・グループ化
• 環境: Calc
• 状態: 解決
• 投稿者: suou?
• 投稿日: 2007-04-10 (火) 16:59:55

質問

いつも丁寧に教えて頂きありがとうございます。 Sheetオブジェクトにgroupメソッドがあるようですが、例えばあるシートの２行目から10行目までをグループ化するためのSample Programを教えて頂けないでしょうか。Rangeとorientationを渡してあげるようなのですが、これが分かりません。よろしくお願い申し上げます。

回答

• http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/XSheetOutline.html

上記 IDL Ref. より group メソッドに

アウトライン化する範囲指定を次の struct で http://api.openoffice.org/docs/common/ref/com/sun/star/table/CellRangeAddress.html

範囲の方向、行または列を次の enum で http://api.openoffice.org/docs/common/ref/com/sun/star/table/TableOrientation.html

指定します。

例えば、次のようにします。

Sub Main
Dim oDoc As Object
Dim oSheet As Object
Dim aRange As New com.sun.star.table.CellRangeAddress
  oDoc = ThisComponent
  oSheet = oDoc.getSheets().getByIndex(0)
  
  With aRange
    .Sheet = 0
    .StartColumn = 0
    .EndColumn = 0
    .StartRow = 1
    .EndRow = 9
  End With
  
  oSheet.group( aRange,_
       com.sun.star.table.TableOrientation.ROWS )
End Sub

2 行目から 10 行目まで行でアウトライン化します。

• はにゃ?? 2007-04-10 (火) 17:43:03

• できました！すばらしい！oSheet.clearOutlineでアウトラインの削除もできました。ありがとうございました。 -- suou? 2007-04-10 (火) 20:26:22

感想，コメント，メモ