232437_zh-CN

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

我想要的输出是每张幻灯片一张图，但是输出是所有图形的长图像

回复：Ppt

您似乎不理解代码的nw =部分。  在“大纲框”内，您有一些对象，这些对象原本是可见对象，但是，除非将“大纲框”放置在New Window（）或日记帐中，否则它们是不可见的。 

另外，您引用“ satplot”，但该函数未包含在您的代码中。

最后，您在获取图片中引用了nw [l]。  根据您的代码，我不确定您的nw参考中是否会包含多个元素。

回复：Ppt

@ skyzvoir0001 ，

 

喜欢 @txnelson ，吉姆，我不确定您要做什么。假设nw是JMP显示对象的列表，则此脚本可能与您要执行的操作很接近。注意：此脚本将第一个图另存为PPT文件。然后，将每个后续图添加到PPT演示文稿中。

 

您的代码在一个大的大纲框中创建附加的图形。JMP每个大纲框向PPT写一页，因此写了一张长图。

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