IChartExternLegendItem.Thumbnail

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

Sub UserProc;
Var
    sizef: IGxSizeF;
    image: IgxImage;
    mb: IMetabase;
    rep: IPrxReport;
    legend: IPrxChartLegend;
    chartlegend: IChartExternLegend;
    items: IChartExternLegendItems;
    item: IChartExternLegendItem;
Begin
    mb := MetabaseClass.Active;
    rep := mb.ItemById("OBJ12399").Open(Null) As IPrxReport;
    legend := (rep.ActiveSheet As IprxTable).TabSheet.Objects.Item(2).Extension As IPrxChartLegend;
    chartlegend := legend As IChartExternLegend;
    items := chartlegend.InternalItems;
    item := Items.Item(0);
    sizef := New GxSizeF.Create(12, 12);
    image := item.Thumbnail(sizef);
    image.SaveToFile("c:\123.bmp");
End Sub UserProc;