Kleur achtergrond van een cell in calc

Forumregels
In dit forum geen vragen stellen, het is uitsluitend bedoeld voor het plaatsten en toelichten van code. Stel vragen in het forum Macro's.

Kleur achtergrond van een cell in calc

Berichtdoor riks » di maart 09, 2010 10:25 pm

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
Laatst bijgewerkt door floris v op do jul 08, 2010 9:55 am, in totaal 1 keer bewerkt.
Reden: code-tags toegevoegd
Ik gebruik Ubuntu 9.10, en openoffice.org 3.1.1.

Een computer doet wat je vraagt, niet wat je wilt.
riks
 
Berichten: 1
Geregistreerd: di jan 19, 2010 10:26 pm
Woonplaats: Oisterwijk

Keer terug naar Macro voorbeelden

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 0 gasten