ILanerSeries.RemoveSeries

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

Sub UserProc;
Var
    mb: IMetabase;
    WbkObj: IMetabaseObject;
    EaxAn: IEaxAnalyzer;
    Laner: ILaner;
    Series: ILanerSeries;
    SeriesSet: ILanerSeriesSet;
Begin
    // Получаем рабочую книгу
    mb := MetabaseClass.Active;
    WbkObj := mb.ItemById("WORKBOOK_SERIES").Edit;
    EaxAn := WbkObj As IEaxAnalyzer;
    Laner := EaxAn.Laner;
    // Получаем ряды рабочей книги
    Series := Laner.Series;
    // Создаём набор рядов
    SeriesSet := Series.CreateSet;
    // Добавляем первые два ряда в набор
    SeriesSet.Add(Series.Item(0));
    SeriesSet.Add(Series.Item(1));
    // Удаляем из рабочей книги ряды, входящие в набор
    Series.RemoveSeries(SeriesSet);
    // Сохраняем изменения
    WbkObj.Save;
End Sub UserProc;