116629_de-DE

liliconcom

Fügen Sie mehrere Gifs-Dateien zum Bericht hinzu

Hallo,

Ich habe ein paar verschiedene Skripts, um verschiedene Daten aus verschiedenen Tabellen zu überwachen.

Alle Diagramme werden als GIF-Dateien unter C: \ Customer \ Data gespeichert.

Ich möchte ein PPT mit einer GIF-Datei pro Folie mit dem Titel slide = GIF-Dateiname erstellen.

 

Das folgende Skript funktioniert in Ordnung, um ein ppt mit nur 3 GIFs zu erstellen.

 

 

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

 

 

Ich habe das folgende Skript geändert, um alle Gifs-Dateien aus dem Datenordner hinzuzufügen, aber es funktioniert nicht.

 

 

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

 

 

Danke für Ihre Hilfe

 

Geof

Re: Fügen Sie mehrere Gifs-Dateien zum Bericht hinzuFunktioniert gut !
Danke dir

Nicht dasselbe Motiv, aber eine Einstellung, um das Bild auf der PPT-Folie so groß wie möglich zu machen, ohne die Proportionen zu ändern? Automatisches Anpassen?Re: Fügen Sie mehrere Gifs-Dateien zum Bericht hinzu

Ich kann nie wirklich Skripte schreiben, ohne sie tatsächlich ausprobiert zu haben - also habe ich Ihre Situation mithilfe von JMP auf dem Mac nachgespielt -, das wird ein bisschen anders, aber ich denke, Sie können auf Windows übersetzen.

 

 

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: Fügen Sie mehrere Gifs-Dateien zum Bericht hinzu

Geoff, zum einen haben Sie ein paar zusätzliche Kommas im Skript, die Sie nicht benötigen - aber ich bin mir nicht sicher, ob das ein Problem ist.

 

Wenn ich mir das ansehe, würde ich das Neue Fenster folgendermaßen einrichten:

 

NewReport = New Window( "New report");

 

Legen Sie die Schleife selbst fest und verwenden Sie die Funktion Anhängen

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

 

Jetzt fehlt die OutlineBox - Sie müssten also etwas komplizierter werden, um dies mit einem Expr () zu bewerkstelligen. - kennst du das?

 

Ich kann dir etwas ausschreiben, wenn du willst.