232437_ja-JP

liliconcom

Ppt

こんにちは、私は質問をしたいと思います。

nw = Outline Box( wname,
 V List Box(
  Button Box( "Save All", sstat = saveall( 1, 330, 1, wname, sdir ) ),
  Spacer Box( Size( 1, 5 ) ),
  Tab Box( "Sat", V List Box( Button Box( "Save Tab" ), satplot( satp, grpname, grpname2, groupList ) ) )
 )
);
dt << Select All Rows;


title = Outline Box( "Plots by Design" );
title << append( nw[1] << get picture );
For( l = 1, l <= N Items( nw ), l++,
 title << append( nw[l] << get picture )
);
title << save presentation( "C:\Users\Desktop\Final.pptx", append );
Open( "C:\Users\Desktop\Final.pptx" );

望ましい出力はスライドごとに1つのプロットですが、出力はすべてのグラフの長い画像です

Re：Ppt

コードのnw =セクションを理解していないようです。  アウトラインボックスの内部には、可視オブジェクトを目的としたオブジェクトがありますが、アウトラインボックスは、New Window（）またはJournalに配置しない限り表示されません。 

また、「satplot」を参照しますが、その関数はコードに含まれていません。

最後に、getピクチャでnw [l]を参照しています。  コードを考えると、nw参照に複数の要素があることはわかりません。

Re：Ppt

しゅう 、

 

好むしゅう 、ジム、あなたが何をしようとしているのかわかりません。nwがJMP表示オブジェクトのリストであると仮定すると、ここにあなたがしたいことに近いスクリプトがあります。注：このスクリプトは、最初のプロットをPPTファイルとして保存します。次に、後続の各プロットがPPTプレゼンテーションに追加されます。

 

コードは、1つの大きなアウトラインボックスに追加グラフを作成します。JMPはPPTにアウトラインボックスごとに1ページを書き込むため、1つの長いグラフになります。

Names Default to Here(1);

dt = Open("$Sample_Data/Fitness.jmp");

nw = Bivariate(
  Y( :Runtime, :RunPulse, :MaxPulse ),
  X( :Oxy ),
  Group By( :Sex ),
  Fit Line( {Report( 0 )} ),
  SendToReport(
   Dispatch(
    {},
    "Bivar Plot",
    FrameBox,
    {Row Legend(
     :Sex,
     Color( 1 ),
     Color Theme( "SAS Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 );

np = N Items(nw);
title = Outline Box( "Plots by Design - 1 of " || char(np) );
title << append( nw[1] << get picture );
title << save presentation( "C:\Users\gz\Desktop\Final.pptx" );

For( l = 2, l <= N Items( nw ), l++,
   title = Outline Box( EvalInsert("Plots by Design - ^l^ of  ^np^")  );
   title << append( nw[l] << get picture );
   title << save presentation( "C:\Users\gz\Desktop\Final.pptx", append );

);
Open( "C:\Users\gz\Desktop\Final.pptx" );