AddCollection(Value: ITabFormatConditions; [Link: Boolean = False]);
Value - коллекция условных форматов, которую необходимо скопировать.
Link - необязательный параметр, определяющий будет ли осуществляться связь между копируемыми условными форматами и коллекцией форматов, куда осуществляется копирование. По молчанию свойству установлено значение False, при этом связь не создается. Если параметру установить значение True - копии условных форматов будет связана с исходными форматами. При изменении параметров, какого-либо скопированного условного формата будут изменяться параметры исходного формата.
Метод AddCollection добавляет указанную коллекцию условных форматов.Пример
Sub AddCollect;
Var
Rep: IPrxReport;
Sheet: ITabSheet;
Collect: ITabFormatConditions;
SelRange: ITabSelection;
Begin
Rep := PrxReport.ActiveReport;
Sheet := (Rep.ActiveSheet As IPrxTable).TabSheet;
Collect := New TabFormatConditions.Create;
Collect.AddCollection(Sheet.FormatConditions, True);
SelRange := Sheet.View.Selection;
SelRange.Range.FormatConditions.AddCollection(Collect, True);
End Sub AddCollect;
Данный пример является макросом для регламентного отчета. При выполнения макроса для выделенного диапазона ячеек будут установлены все условные форматы, содержащиеся на текущем листе отчета.
См. также: