Pagina 1 van 1

Kleur achtergrond van een cell in calc

BerichtGeplaatst: di maart 09, 2010 10:25 pm
door 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   UitklappenInklappen
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