[Delphi/Excel97] grafiekkleur zetten via OLE automation

[Verwijderd]

Ik heb hier gezocht, bij deja, bij MSDN en in de excel97.pas, maar kan het antwoord op de volgende vraag niet vinden.

Ik laat mijn Delphi applicatie run-time een grafiek maken in Excel. Deze ziet er bv. zo uit:



Op zich mooi, alleen moet hij uitgeprint worden op een laserprinter en dan is het niet handig dat de achtergrond grijs is. Dit wil ik dus veranderen.

Bovenstaande grafiek is de uitkomst van:

Delphi:

oWerkBlad:=oExcelApp.Worksheets['MijnWerkBlad'] as _Worksheet;
oChartObject:=(oWerkBlad.
               ChartObjects(EmptyParam, LCID) as ChartObjects).
               Add(75,125 , 300, 200); 
oXAxis:=oChart.Axes(xlValue, xlPrimary, LCID) as Axis;
oYAxis:=oChart.Axes(xlCategory, xlPrimary, LCID) as Axis;
rRange:=oExcelApp.Union(oWerkblad.Range['E3','J3'],
                        oWerkBlad.Range['E9','J9']);
With oChart do
  begin
    ConnectTo(oChartObject.Chart as _Chart);
    ChartWizard(rRange,xlColumn,EmptyParam,xlRows,1,0,False,
                String(oWerkblad.Cells.Item[nRow,1]),'ophoging',
                'slagingspercentage (%)',EmptyParam);
    ApplyDataLabels(xlDataLabelsShowValue);
  end;
With oXAxis do
  begin
    MaximumScale:=100;
    AxisTitle.Font.Size:=6;
  end;
With oYAxis do
  begin
     AxisTitle.Font.Size:=6;
  end;

De volgende zaken heb ik al geprobeerd:

Delphi:

oChart.ChartArea.Interior.Color:=clWhite;
oChart.ChartArea.Interior.PatternColor:=clWhite;
oChart.ChartArea[LCID].Interior.Color:=clWhite;
oChart.ChartArea[LCID].Interior.PatternColor:=clWhite;
oChart.Walls[0].Interior.Color:=clWhite;

helaas alle zonder effect.

Iemand die weet hoe ik dit gedaan krijg?

//edit
typos en code beetje herschikt ivm layout..

[ Voor 31% gewijzigd door Verwijderd op 15-01-2003 12:36 ]

[Verwijderd]

Inmiddels heb ik het gevonden (handig topic voor de search wel dit denk ik):

Delphi:

oChart.PlotArea[LCID].Interior.Color := RGB(255, 255, 255)

kan dus dicht imo..

[D2k]

mooi