CCastellanos <crcastellanosv at hotmail.com> wrote in message
news:8698u7$6kg at smc.vnet.net...
> Hola Everybody:
>
> Is there a way that during an animation process, mathematica's graphing
> commands deliver the cells grouped, so I don't have to do it manually?
>
>
Yes, there is a front end token that will let you close a selected cell
group.
Table[Plot[a*x, {x, 0, 1}, PlotRange -> {0, 1}], {a, 2}];
SelectionMove[EvaluationNotebook[], All, GeneratedCell];
FrontEndExecute[{FrontEndToken["OpenCloseGroup"]}]