How do I set conditional formatting in Excel from a Delphi program using OLE

I've used
oWB := oXL.Workbooks.add;
oSheet := oWB.activesheet;

This bit works and I can produce an excel sheet but can't get the conditional formatting to work

oSheet.Range['C7:C7'].FormatConditions.add(    ,      ,    ,    )

is the part where I am having trouble.  What do I enter to get a condition of greater than 1
s_w_e2Asked:
Who is Participating?
 
aflarinConnect With a Mentor Commented:
procedure TForm1.Button2Click(Sender: TObject);
const
  xlCellValue = $00000001;
const
  xlGreater = $00000005;
begin
  WorkSheet.Cells[1,1].FormatConditions.Add(xlCellValue,xlGreater,1);
  WorkSheet.Cells[1,1].FormatConditions[1].Interior.ColorIndex := 3;
end;
0
 
s_w_e2Author Commented:
Thanks for the solution.  It was great.
Is there a place I can get the format for this - my original try had 4 parameters - yours had only 3  (I've figured that you need 4 if you use xlBetween  (I've got a list of numbers for these).

Can you also give me the format for validation of a cell?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.