Background color of the cell in EXCEL not working....Pls help..

Question

Hi gurus,
I have written a procedure to change the background color of the cell in EXCEL.The code is as below..
PROCEDURE set_header     (p_row IN NUMBER, p_col IN NUMBER, p_value IN VARCHAR2, p_border IN VARCHAR2 DEFAULT 'N',p_bgcolor IN VARCHAR2 DEFAULT 'N') IS
BEGIN
     v_args     := ole2.create_arglist;
     ole2.add_arg(v_args, p_row);
     ole2.add_arg(v_args, p_col);
     v_cell     := ole2.get_obj_property(v_worksheet, 'cells', v_args);
     v_font     := ole2.get_obj_property(v_cell, 'font');
     ole2.set_property(v_font, 'fontstyle', 'bold');
     ole2.set_property(v_font, 'size', 9);
     ole2.destroy_arglist(v_args);
     if p_border = 'Y' THEN
          v_border := ole2.get_obj_property(v_cell, 'Borders');
          ole2.set_property(v_border, 'LineStyle', 1);
          ole2.release_obj(v_border);
     End If;
     if p_bgcolor ='Y' THEN
          v_bgcolor := ole2.get_obj_property(v_cell,'Bgcolor'); --This is not woking
          ole2.set_property(v_bgcolor,'bgcolor','red');
          ole2.release_obj(v_bgcolor);
     End If;
          ole2.set_property(v_cell, 'value', p_value);
          ole2.release_obj(v_cell);
     END set_header;
Pls tell me how to change the backcolor and forecolor in the cell...
Thanks

Answer 1

The background color is set for the "Interior" object of the selected cells (Range).
Try something like this (haven't tested it):
v_interior := ole2.get_obj_property(v_cell,'Interior');
ole2.set_property(v_interior,'ColorIndex',3); --should be red
ole2.release_obj(v_interior);
If the Foreground color = Font Color then
ole2.set_property(v_font,'ColorIndex',6); --should be yellow
Gerald