116629_zh-TW

liliconcom

添加多個Gifs文件進行報告

你好，

我有一些不同的腳本運行來監視來自不同表的不同數據。

所有圖表都保存為C：\ Customer \ Data下的GIF文件。

我想為每個幻燈片創建一個帶有一個GIF文件的ppt，標題幻燈片= Gif文件名。

 

下面的腳本工作正常，只能創建一個只有3個GIF的ppt。

 

 

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

 

 

我修改了下面的腳本來添加數據文件夾中的所有Gif文件，但它不起作用。

 

 

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

 

 

謝謝你的幫助

 

傑夫

Re：添加多個Gifs文件進行報告工作良好 ！
謝謝

不是相同的subjetct，但任何設置，以使ppt幻燈片上的圖片盡可能大，而不改變比例？自動貼合？Re：添加多個Gifs文件進行報告

我真的不能在沒有實際嘗試的情況下編寫腳本 - 所以我在Mac上使用JMP來模擬你的情況 - 所以這會有所不同，但我認為你可以翻譯成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：添加多個Gifs文件進行報告

Geoff - 首先 - 你在劇本中有一些額外的逗號，不需要 - 但我不確定這是否是一個問題。

 

只是看著這個 - 我設置了這樣的新窗口：

 

NewReport = New Window( "New report");

 

把循環放在自己的上面並使用append - 就像這樣

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

 

現在，它缺少了OutlineBox - 所以你必須通過使用Expr（）來適應它。- 你熟悉嗎？

 

如果你願意，我可以為你寫點什麼。