Modified: IPrxCellStyle;
The Modified property returns an object containing style of changed cells.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Report: IPrxReport;
DIs: IPrxDataIslands;
DI: IPrxDataIsland;
DimModel: IDimensionModel;
Prop: IPrxDataIslandProperties;
PropDim: IPrxDataIslandDimension;
Level: IPrxDataIslandLevel;
Style: IPrxDataElementStyle;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Report").Edit;
Report := MObj As IPrxReport;
DIs := Report.DataIslands;
DI := DIs.Item(0);
DimModel := DI.Slice.TopHeader.Item(0).Dimension.Dimension;
Prop := DI.Properties;
PropDim := Prop.Dimension(DimModel);
Level := PropDim.Level(DimModel.Levels.Item(0));
Style := Level.Style;
Style.Modified.Font.Name := "Times New Roman";
MObj.Save;
End Sub Main;
After executing the example font of the area of changed data is set as Times New Roman for the first level of the first dimension located in columns. The identifier of the regular report - Report.
See also: