Kleur achtergrond van een cell in calc

[riks]

Ik ben begonnen met het programmeren van open office met Ooobasic, en heb gemerkt dat er moeilijk simpele voorbeelden te vinden zijn.
Daarom hier een eerste eenvoudig voorbeeld

Code: Selecteer alles

REM  *****  BASIC  *****

Dim Doc As Object
Dim Sheet As Object
Dim CellRange As Object
Dim Cell As Object

' Gebruik deze macro in calc.

sub Main
  SetDoc 
  SetSheet doc
  SetRange
  CellColor 255,200,0 ' door de rode getallen te wijzigen
                      ' wordt de kleur bepaald {255,255,255) = zwart, en
                      ' (0,0,0) = wit
end sub

' Definieer het document 
sub SetDoc()
  Doc = ThisComponent
end sub

' Definieer Sheet als actief werkblad
sub SetSheet(Document as object)
  Sheet = Doc.CurrentController.Activesheet'   Sheets.getByName("Blad1")
end sub

' Definieer de "Range"
Sub SetRange()
CellRange = Sheet.getCellRangeByPosition(0, 0,  2, 14)
end sub

' kleur de achtergrond van de cellen
sub CellColor(Red as long, Green as long, Bleu as long)
Dim R, K as long

	for K = 0 to CellRange.Columns.Count -1
  		for R = 0 to CellRange.Rows.Count -1
   			Cell = CellRange.GetCellByPosition(K, R)
   			Cell.Value = ""
   			Cell.CellBackColor = RGB(red, green, bleu)
  		next R
	next K
end sub