IChartExternLegend.BackgroundInfo

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

Sub UserProc;
Var
    mb: IMetabase;
    rep: IPrxReport;
    legend: IPrxChartLegend;
    chartlegend: IChartExternLegend;
    items: IChartExternLegendItems;
    chartBI : IChartBackgroundInfo;
Begin
    mb:= MetabaseClass.Active;
    rep:= mb.ItemById("OBJ42859").Edit As IPrxReport;
    legend:= ((rep.ActiveSheet As IprxTable).TabSheet.Objects.Item(1)) As IPrxChartLegend;
    chartlegend:= legend As IChartExternLegend;
    chartlegend.AxisIcon:= ChartLegendAxisIcon.Axis;
    chartBI:= chartlegend.BackgroundInfo;
    chartBI.Color:= New GxColor.CreateARGB( 255, 245, 120, 255);     
    items:= chartlegend.InternalItems;        
    (rep As IMetabaseObject).Save;
End Sub UserProc;