OOo Calc の A1:D2 の背景色をセル要素にしたがって設定する OOo Basic コード

Sub Main
REM ----------------------------------------------------------------------
REM define variables
	Dim oCell As Object, oSheet As Object
	Dim trgb(2) As String
REM ----------------------------------------------------------------------
   oSheet = ThisComponent.Sheets(0)
   
REM 主処理をここに書く
   nCols = 3	
   nRows = 1
   
   For i = 0 To nRows Step 1
      For j = 0 To nCols Step 1
         REM  セル取り出し
         oCell = oSheet.getCellByPosition(j,i)
         REM テキスト取り出し，パラメータ取り出し
         trgb = Split(oCell.String, ",",3)
         REM 背景色設定
         setColor(oCell, CInt(trgb(0)), CInt(trgb(1)), CInt(trgb(2)))
         REM データクリア
         oCell.String = ""
      Next
   Next

End Sub

Sub setColor(oCell, r, g, b)
			oCell.setPropertyValue( "CellBackColor", RGB( r, g, b ) )
End Sub