Apache OpenOffice Community Forum

Code: Select all

Sub GradientMe
    nBeg = RGB(255, 51, 51) 'red
    nEnd = RGB(102, 102, 255) 'blue
    nSteps = 25
    r1 = Red(nBeg) : g1 = Green(nBeg) : b1 = Blue(nBeg)
    r2 = Red(nEnd) : g2 = Green(nEnd) : b2 = Blue(nEnd)
    if ( nBeg < nEnd ) then
        dr = Int((r2-r1) / nSteps)
        dg = Int((g2-g1) / nSteps)
        db = Int((b2-b1) / nSteps)
    else
        dr = Int((r1-r2) / nSteps)
        dg = Int((g1-g2) / nSteps)
        db = Int((b1-b2) / nSteps)
    endif
    oSheet = ThisComponent.CurrentController.ActiveSheet
    For i = 0 to nSteps -1
        oCell = oSheet.getCellByPosition(0,i)
        oCell.setPropertyValue("CellBackColor", nBeg)
        if ( nBeg > nEnd ) then
            r1 = r1 - dr : g1 = g1 - dg : b1 = b1 - db
        else
            r1 = r1 + dr : g1 = g1 + dg : b1 = b1 + db
        endif
        nBeg = RGB(r1, g1, b1)
    Next i
End sub

Code: Select all

 dr = Int((r2-r1) \ nSteps)
        dg = Int((g2-g1) \ nSteps)
        db = Int((b2-b1) \ nSteps)
    else
        dr = Int((r1-r2) \ nSteps)
        dg = Int((g1-g2) \ nSteps)
        db = Int((b1-b2) \ nSteps)