OOoBasic/Calc/FAQ

FAQ for OOo Basic + Calc

セル範囲中の結合セルのセルの結合数を取得

処理するためのセル範囲内に、結合されているセルがあったときに処理を変更したりする際には、その結合されたセルがいくつの列、または行が結合されたかを知りたいときがあります。

getIsMerged メソッドではそのセルが属している範囲が結合していたり，範囲の一部分でも結合していると、結合しているとみなされます。また、いくつの列がいくつの行が結合されているかといった情報は手に入りません。

そこで、セルカーソルを使用して collapseToMergedArea メソッドを利用することで、セルの結合数を調べます。

collapseToMergedAre メソッドはセルカーソルの範囲をそのセルが結合されている範囲全体に広げるメソッドです。

また，広げたセル カーソルの範囲を指定した大きさに変更する gotoOffset メソッドも使います。

セルを覆うように図形描写オブジェクトを配置

セルを覆うように四角形を描きます。セルから位置とサイズを取得して図形描写に設定、図形をドロー ページに追加します。

Sub rectangleshape_2
  Dim oDoc As Object, oSheet As Object
  Dim oRectangleShape As Object, oDrawpage As Object
  Dim aPos As New com.sun.star.awt.Point
  Dim aSize As New com.sun.star.awt.Size
  oDoc = ThisComponent
  oSheet = oDoc.getSheets().getByIndex(0)
  
  oCell = oSheet.getCellByPosition(1,1)
  
  oDrawPage = oSheet.DrawPage
  oRectangleShape = oDoc.createInstance( _
      "com.sun.star.drawing.RectangleShape")
  
  aPos.X = oCell.Position.X
  aPos.Y = oCell.Position.Y
  aSize.Width = oCell.Size.Width
  aSize.Height = oCell.Size.Height
  
  oRectangleShape.setPosition(aPos)
  oRectangleShape.setSize(aSize)

  oDrawPage.add(oRectangleShape)
End Sub

CSV ファイルからシートに挿入

Sub LinkToCSVFile
 oDoc = ThisComponent
 oSheet = oDoc.getSheets().getByName("Sheet1")
 
 sFileName = "file:///home/asuka/Desktop/Untitled1.csv"
 sFilterName = "Text - txt - csv (StarCalc)"
 sFilterOption = "44,34,76,1,"

 oSheet.link(sFileName, "", sFilterName, sFilterOption, com.sun.star.sheet.SheetLinkMode.NORMAL)
End Sub