IVZChartAxis.AutoMax

AutoMax: Boolean;

AutoMax: Boolean;

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    BC: IVZBubbleChart;
    CA: IVZChartAxis;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчет
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим пузырьковую диаграмму
    BC := Express.BubbleChart.BubbleChart;
    // Получим ось X пузырьковой диаграммы
    CA := BC.AxisX;
    // Отключим автоопределение максимального значения на оси диаграммы
    CA.AutoMax := False;
    // Определим максимальное значение на оси
    CA.Max := 1000;
    // Отключим автоопределение минимального значения на оси диаграммы
    CA.AutoMin := False;
    // Определим минимальное значение на оси
    CA.Min := 100;
    // Изменим масштаб оси
    CA.DisplayUnit := VisualizatorUnitKind.Hundreds;
    // Изменим текст подписи оси
    CA.Caption.Text := "Значение показателя (в сотнях)";
    // Отобразим подписи на оси диаграммы
    CA.ShowLabels := True;
    // Обновим пузырьковую диаграмму и сохраним отчет
    Express.BubbleChart.Refresh;
    (Express As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    BC: IVZBubbleChart;
    CA: IVZChartAxis;    
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим экспресс-отчет
    Express := MB.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
    // Получим пузырьковую диаграмму
    BC := Express.BubbleChart.BubbleChart;
    // Получим ось X пузырьковой диаграммы
    CA := BC.AxisX;
    // Отключим автоопределение максимального значения на оси диаграммы
    CA.AutoMax := False;
    // Определим максимальное значение на оси
    CA.Max := 1000;
    // Отключим автоопределение минимального значения на оси диаграммы
    CA.AutoMin := False;
    // Определим минимальное значение на оси
    CA.Min := 100;
    // Изменим масштаб оси
    CA.DisplayUnit := VisualizatorUnitKind.vukHundreds;
    // Изменим текст заголовка оси
    CA.Caption.Text := "Значение показателя (в сотнях)";
    // Отобразим подписи на оси диаграммы
    CA.ShowLabels := True;
    // Обновим пузырьковую диаграмму и сохраним отчет
    Express.BubbleChart.Refresh();
    (Express As IMetabaseObject).Save();
End Sub;