IChartExternLegend.FontColor

Копировать пример

Sub UserProc;
Var
    mb: IMetabase;
    rep: IPrxReport;
    legend: IPrxChartLegend;
    chartlegend: IChartExternLegend;
    objects: ITabObjects;
    FColor: IGxColor;
Begin
    mb := MetabaseClass.Active;
    rep := mb.ItemById("OBJ42859").Edit As IPrxReport;
    objects := (rep.ActiveSheet As IprxTable).TabSheet.Objects;
    legend := (objects.Item(1)) As IPrxChartLegend;
    chartlegend := legend As IChartExternLegend;
    chartlegend.AddChart(objects.Item(2) As ichart);
    FColor:= New GxColor.CreateARGB(210,120,130,240);
    chartlegend.FontColor:= FColor; 
    (rep As IMetabaseObject).Save;
End Sub UserProc;