116629_fr-FR

liliconcom

Ajouter plusieurs fichiers Gifs à signaler

Bonjour,

J'ai quelques scripts différents en cours d'exécution pour surveiller différentes données de différentes tables.

Tous les graphiques sont enregistrés en tant que fichiers GIF sous C: \ Customer \ Data.

Je veux créer un ppt avec un fichier GIF par diapositive, avec le titre slide = nom du fichier Gif.

 

Le script ci-dessous fonctionne bien pour créer un ppt avec seulement 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" );

 

 

J'ai modifié le script ci-dessous pour ajouter tous les fichiers Gifs du dossier de données, mais cela ne fonctionne pas.

 

 

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

 

 

Merci de votre aide

 

Geof

Re: Ajouter plusieurs fichiers Gifs à signalerFonctionne bien!
Je vous remercie

Pas le même sujet, mais n'importe quel réglage pour rendre l'image aussi grande que possible sur la diapositive PPT sans changer les proportions? Ajustement automatique?Re: Ajouter plusieurs fichiers Gifs à signaler

Je ne peux jamais vraiment écrire des scripts sans les essayer - j'ai donc maquillé votre situation en utilisant JMP sur Mac - donc ça va être un peu différent, mais je pense que vous pouvez traduire vers 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: Ajouter plusieurs fichiers Gifs à signaler

Geoff - pour une chose - vous avez quelques virgules supplémentaires dans le script qui ne sont pas nécessaires - mais je ne suis pas sûr que ce soit un problème.

 

En regardant simplement ceci, je mettrais en place la nouvelle fenêtre comme ceci:

 

NewReport = New Window( "New report");

 

Mettez la boucle toute seule et utilisez append - quelque chose comme

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

 

Maintenant, il manque la OutlineBox - vous devrez donc être un peu plus compliqué à gérer en utilisant un Expr (). - vous connaissez ça?

 

Je peux écrire quelque chose pour vous si vous le souhaitez.