Сообщение от :
if NRecDiolPR.RecType = 'Razdel'
then
begin
ISheetDiolPR.Range['17', '34'].Rows.Group('17','34','16','1');
ISheetDiolPR.Outline.AutomaticStyles:= false;
ISheetDiolPR.Outline.SummaryRow:= xlAbove;
ISheetDiolPR.Outline.SummaryColumn:= xlRight;
end;
Сообщение от :
{
Rows("5:14").Select
Selection.Rows.Group
With ActiveSheet.Outline
.AutomaticStyles = False
.SummaryRow = xlAbove
.SummaryColumn = xlRight
End With
}
Сообщение от :
ISheetDiolPR.Range['17', '34'].Rows.Group('17','34','16','1');
Сообщение от :
// ************************************************** *******************//
// Interface: IRange
// Flags: (4112) Hidden Dispatchable
// GUID: {00020846-0001-0000-C000-000000000046}
// ************************************************** *******************//
IRange = interface(IDispatch)
['{00020846-0001-0000-C000-000000000046}']
.......
.......
function Group(Start: OleVariant; End_: OleVariant; By: OleVariant; Periods: OleVariant): OleVariant; stdcall;
.......