232437_es-ES

liliconcom

Ppt

Hola, me gustaría hacer una pregunta.

nw = Outline Box( wname,
 V List Box(
  Button Box( "Save All", sstat = saveall( 1, 330, 1, wname, sdir ) ),
  Spacer Box( Size( 1, 5 ) ),
  Tab Box( "Sat", V List Box( Button Box( "Save Tab" ), satplot( satp, grpname, grpname2, groupList ) ) )
 )
);
dt << Select All Rows;


title = Outline Box( "Plots by Design" );
title << append( nw[1] << get picture );
For( l = 1, l <= N Items( nw ), l++,
 title << append( nw[l] << get picture )
);
title << save presentation( "C:\Users\Desktop\Final.pptx", append );
Open( "C:\Users\Desktop\Final.pptx" );

Mi salida deseada es un gráfico por diapositiva pero la salida es una imagen larga de todos los gráficos

Re: Ppt

Parece que no comprende la sección nw = de su código.  Dentro del cuadro de esquema, tiene objetos destinados a ser objetos visibles, sin embargo, el cuadro de esquema no será visible a menos que se coloque en una nueva ventana () o un diario.  

Además, hace referencia a "satplot" pero esa función no está contenida en su código.

Finalmente, está haciendo referencia a nw [l] en su imagen de obtención.  No estoy seguro, dado su código, de que alguna vez tendrá más de un elemento en su nueva referencia.

Re: Ppt

@ skyzvoir0001 ,

 

Me gusta @txnelson Jim, no estoy seguro de lo que intentas hacer. Suponiendo que nw es una lista de objetos de visualización JMP, aquí hay un script que podría estar cerca de lo que desea hacer. Nota: este script guarda el primer diagrama como un archivo PPT. Luego, cada diagrama posterior se agrega a la presentación PPT.

 

Su código crea gráficos adjuntos en un gran cuadro de contorno. JMP escribe en PPT una página por cuadro de esquema, por lo tanto, un gráfico largo.

Names Default to Here(1);

dt = Open("$Sample_Data/Fitness.jmp");

nw = Bivariate(
  Y( :Runtime, :RunPulse, :MaxPulse ),
  X( :Oxy ),
  Group By( :Sex ),
  Fit Line( {Report( 0 )} ),
  SendToReport(
   Dispatch(
    {},
    "Bivar Plot",
    FrameBox,
    {Row Legend(
     :Sex,
     Color( 1 ),
     Color Theme( "SAS Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 );

np = N Items(nw);
title = Outline Box( "Plots by Design - 1 of " || char(np) );
title << append( nw[1] << get picture );
title << save presentation( "C:\Users\gz\Desktop\Final.pptx" );

For( l = 2, l <= N Items( nw ), l++,
   title = Outline Box( EvalInsert("Plots by Design - ^l^ of  ^np^")  );
   title << append( nw[l] << get picture );
   title << save presentation( "C:\Users\gz\Desktop\Final.pptx", append );

);
Open( "C:\Users\gz\Desktop\Final.pptx" );