Procedure Agrupar(pHoja in ole2.obj_type,
pCeldas in varchar2) is

rango ole2.obj_type;
args ole2.list_type;
vOutline Ole2.obj_type;

Begin

args:= ole2.create_arglist;
ole2.add_arg(args, pCeldas);
rango:= ole2.GET_OBJ_PROPERTY(phoja, 'Range', args);
ole2.destroy_arglist(args);

ole2.invoke(rango,'Group');

vOutline := ole2.get_obj_property(pHoja,'Outline');

args:= ole2.create_arglist;
ole2.add_arg(args,'XlSummaryAbove');

ole2.invoke(vOutline,'SummaryRow',args);
ole2.destroy_arglist(args);

ole2.release_obj(rango);
ole2.release_obj(vOutline);

End Agrupar;