IPrxChart.PointChartMode

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    Table: IPrxTable;
    TabObj: ITabObject;
    Chart: IPrxChart;
    Style: ITabCellStyle;
Begin
    // Get the current repository
    MB := MetabaseClass.Active;
    // Get regular report
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    // Get chart
    Table := Report.ActiveSheet As IPrxTable;
    TabObj := Table.TabSheet.Objects.Item(0);
    Chart := TabObj.Extension As IPrxChart;
    // Disable chart update
    Chart.BeginUpdate;
    // Specify chart source data
    Chart.Data := "B4:F8";
    Chart.Series := "A4:A8";
    Chart.Points := "B1:F1";
    Chart.SeriesInRows := False;
    // Determine order of creating values for chart point names    
    Chart.PointsSimple := True;
    Chart.SeriesSimple := True;
    // Determine a fill color for the range containing chart point names
    Style := Chart.PointsRange.Style;
    Style.BackgroundBrush := New GxSolidBrush.Create(GxColor.FromName("Green"));
    // Determine a fill color for the range containing chart series names
    Style := Chart.SeriesRange.Style;
    Style.BackgroundBrush := New GxSolidBrush.Create(GxColor.FromName("Red"));
    // Determine chart type 
    (Chart As IChart).Type := ChartType.Points;
    // Determine data transfer method
    Chart.PointChartMode := PrxPointChartMode.YXYX;
    // Apply update
    Chart.EndUpdate;
    // Save report
    (Report As IMetabaseObject).Save;
End Sub UserProc;