116629_es-ES

liliconcom

Agrega múltiples archivos Gifs para reportar

Hola,

Tengo algunas secuencias de comandos diferentes que se ejecutan para controlar diferentes datos de diferentes tablas.

Todos los gráficos se guardan como archivos GIF en C: \ Cliente \ Datos.

Quiero crear un ppt con un archivo GIF por diapositiva, con la diapositiva del título = nombre del archivo GIF.

 

La siguiente secuencia de comandos funciona correctamente para crear un ppt con solo 3 GIF.

 

 

NewReport= new window("New report",
       V List Box(
       Outline box(
       "Gif1",
       Picture Box( Open("C:\Customer\Data\Gif1.gif", gif ));
       ),
       Outline box(
       "Gif2",
       Picture Box( Open("C:\Customer\Data\Gif2.gif", gif ));
       ),
       Outline box(
       "Gif3",
       Picture Box( Open("C:\Customer\Data\Gif3.gif", gif ));
       ),
      ););
NewReport << Save Presentation( "C:\Customer\Report\NewReport.pptx", Insert(2), "GIF" );

 

 

Modifiqué la secuencia de comandos a continuación para agregar todos los archivos GIF de la carpeta de datos, pero no funciona.

 

 

mypath =("C:\Customer\Data\");
FileName = Files in Directory(mypath);
NewReport= new window("New report",
       V List Box(
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For (i=1, i<=N items(FileName), i++,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Outline box(
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ""||FileName[i]||"",
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Picture Box( Open("C:\Customer\Data\"||FileName[i]||"", gif )),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );&nbsp;&nbsp;&nbsp;&nbsp;
););
NewReport << Save Presentation( "C:\Customer\Report\NewReport.pptx", Insert(2), "GIF" );

 

 

Gracias por tu ayuda

 

Geof

Re: Agrega múltiples archivos Gifs para reportarFunciona bien !
Gracias

¿No es el mismo sujeto, pero cualquier configuración para hacer que la imagen sea lo más grande posible en la diapositiva ppt sin cambiar las proporciones? Ajuste automático?Re: Agrega múltiples archivos Gifs para reportar

Realmente nunca puedo escribir scripts sin probarlos realmente, así que me burlé de tu situación usando JMP en la Mac, así que esto va a ser un poco diferente, pero creo que puedes traducir a Windows.

 

 

current_directory = convert file path (".");
FileName = Files in Directory (Current_directory||"Pictures");
OB_Expr = Expr(
Outline Box( "" || dv_FileName || "", Picture Box( Open( current_directory||"pictures/" || dv_FileName || "", jpg ) ), )
);

NewReport = New Window( "New report" );

For( i = 1, i <= N Items( FileName ), i++,
NewReport << append( eval(Substitute( Name Expr( OB_Expr ), Expr( dv_filename ), FileName[i] ) ))
);

NewReport << Save Presentation( "C:\Customer\Report\NewReport.pptx", Insert( 2 ), "GIF" );

 

 

Re: Agrega múltiples archivos Gifs para reportar

Geoff, por una parte, tiene un par de comas adicionales en el script que no son necesarias, pero no estoy seguro de que eso sea un problema.

 

Solo mirando esto, configuré la Nueva Ventana de esta manera:

 

NewReport = New Window( "New report");

 

Ponga el bucle por su cuenta y use adjuntar - algo como

NewReport << Append (&nbsp;Picture Box( Open( "C:\Customer\Data\" || FileName[i] || "", gif ) )

 

Ahora le falta el OutlineBox, así que tendría que ser un poco más complicado para acomodarlo usando un Expr (). - ¿Está familiarizado con eso?

 

Puedo escribir algo para ti si quieres.