116629_it-IT

liliconcom

Aggiungi più file GIF da segnalare

Ciao,

Ho alcuni script diversi in esecuzione per monitorare diversi dati da tabelle diverse.

Tutti i grafici vengono salvati come file GIF in C: \ Customer \ Data.

Voglio creare un ppt con un file GIF per diapositiva, con titolo slide = Nome file GIF.

 

Lo script seguente funziona correttamente per creare 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" );

 

 

Ho modificato lo script qui sotto per aggiungere tutti i file GIFs dalla cartella dei dati ma non funziona.

 

 

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" );

 

 

Grazie per l'aiuto

 

Geof

Ri: aggiungere più file GIF per segnalareFunziona bene !
Grazie

Non lo stesso subjetct, ma qualsiasi impostazione per rendere l'immagine più grande possibile sulla diapositiva ppt senza modificare le proporzioni? Adattamento automatico?Ri: aggiungere più file GIF per segnalare

Non riesco mai a scrivere script senza realmente provarli - così ho preso in giro la tua situazione usando JMP su Mac - quindi questo sarà un po 'diverso ma penso che tu possa tradurre in 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" );

 

 

Ri: aggiungere più file GIF per segnalare

Geoff - per prima cosa - hai un paio di virgole extra nella sceneggiatura che non sono necessarie - ma non sono sicuro che sia un problema.

 

Guardando questo - ho impostato la nuova finestra in questo modo:

 

NewReport = New Window( "New report");

 

Metti il ciclo da solo e usa append - qualcosa del genere

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

 

Ora manca l'OutlineBox - quindi dovresti essere un po 'più complicato per farlo usando un Expr (). - hai familiarità con quello?

 

Posso scrivere qualcosa per te, se vuoi.