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