IPivotHeaderNumbering.CornerFormat

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

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Pivot: IPivot;
    Header: IPivotHeader;
    Numbering: IPivotHeaderNumbering;

Begin
    MB := MetabaseClass.Active;
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    Pivot := Express.Pivot;
    Header := Pivot.LeftHeader;
    //Параметры нумерации строк
    Numbering := Header.Numbering;
    Select Case Numbering.CornerFormat As Integer
        Case 0: Debug.WriteLine("Формат нумерации в уголке - Арабские цифры");
        Case 1: Debug.WriteLine("Формат нумерации в уголке - Буквы латиницы в нижнем регистре");
        Case 2: Debug.WriteLine("Формат нумерации в уголке - Буквы латиницы в верхнем регистре");
        Case 3: Debug.WriteLine("Формат нумерации в уголке - Римские цифры в нижнем регистре");
        Case 4: Debug.WriteLine("Формат нумерации в уголке - Римские цифры в верхнем регистре");
        Case 5: Debug.WriteLine("Формат нумерации в уголке - Буквы кириллицы в нижнем регистре");
        Case 6: Debug.WriteLine("Формат нумерации в уголке - Буквы кириллицы в верхнем регистре");
    End Select; 
End Sub UserProc;