从一页上的按列导出所有控制图以导出到PowerPoint你好，
我有一个脚本，使用脚本中的“按”部分可以为20个单独的地下水监测井制作6个控制图。 我想在脚本的末尾添加内容，以便可以在PowerPoint演示文稿的一页上为每个单独的监视位置打印6个控制图。结果是在Powerpoint演示文稿中长20页，每页上有6个图形。 我正在寻找从何处开始这项任务的建议？ 这是我用来制作图表的脚本：
Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
By(:LOC_NAME)
);
谢谢！
图形脚本编写回复：从一页上的“按列”导出所有控制图，以导出到PowerPoint你好
几个月前，我录制了一个Mastering JMP会话，其中演示了如何自动将报告保存到excel（掌握JMP分享您的结果，从33:30开始）。这可能是一个不错的起点。请看一看，让我知道这是否指向正确的方向。
回复：从一页上的“按列”导出所有控制图，以导出到PowerPoint嗨！
谢谢您的回复。 我观看了视频，它为我提供了正确的信息，用于将控制图放置在Powerpoint中并让它们自动更新。 这绝对有帮助。 现在，我已添加到脚本中，将每组控制图以jpg格式保存在特定文件夹中，然后按照您所说的将它们插入到powerpoint中（带有链接）。 但是，我的最后一个难题涉及将jpg中的图形排列为三个图形，两个图形向下。 目前，他们正在向下导出6，这在PowerPoint幻灯片上看起来不太好。见附图。
谢谢你的帮助！
ccb = dt << Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
SendToReport(
Dispatch( {}, "Chloride Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Cl_TDS Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Sodium Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {},
"Total Dissolved Solids Limit Summaries",
OutlineBox,
{Close( 1 )}
),
Dispatch( {}, "Sulphate Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Calcium Limit Summaries", OutlineBox, {Close( 1 )} )
),
By(:LOC_NAME)
);
for(c=1, c<=NItems(ccb), c++,
thisrep = Report(ccb[c]);
firstOB = thisrep[OutlineBox(1)];
thistitle = firstOB << getTitle;
firstOB << save picture ("desktop/"||thistitle);
);回复：从一页上的“按列”导出所有控制图，以导出到PowerPoint这是我用来创建多列输出的方法之一
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );
Nw = New Window( "Control Charts",
Lineup Box( N Col( 2 ),
Control Chart Builder(
Show Capability( 0 ),
Variables( Y( :height, :weight ) ),
by( :age )
)
)
);
回复：从一页上的“按列”导出所有控制图，以导出到PowerPoint你好，
谢谢你的主意。 我对脚本进行了一些更改，以包括“阵容”框。 最初，我在'by'列中尝试了多个唯一名称。 但是，它在第二列中放置了一个不同的示例，而不是将每个唯一名称的6个图分成两列，每列三个。 见附图。
因此，我再次尝试仅使用一个唯一值来查看是否将六个图分成两列，并在六个图的列中导出一个唯一值。 它仍然没有分成两列。 我究竟做错了什么？
这是脚本的一部分。
Nw = New Window( "Control Charts",
Lineup Box( N Col( 3 ),
Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
SendToReport(
Dispatch( {}, "Chloride Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Cl_TDS Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Sodium Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {},
"Total Dissolved Solids Limit Summaries",
OutlineBox,
{Close( 1 )}
),
Dispatch( {}, "Sulphate Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Calcium Limit Summaries", OutlineBox, {Close( 1 )} )
),by(:LOC_NAME);
);
);
);如果有帮助，我还提供了一个数据集示例。
谢谢您的帮助。
回复：从一页上的“按列”导出所有控制图，以导出到PowerPoint这是你想要的？
Names Default To Here( 1 );
dt = Current Data Table();
Summarize( dt, bygroup = by( :LOC_Name ) );
Nw = New Window( "Control Charts", lb = Lineup Box( N Col( 2 ) ) );
For( i = 1, i <= N Items( bygroup ), i++,
vlb = V List Box(
dt << Control Chart Builder(
Show Capability( 0 ),
Show control panel( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y( :Chloride, :Cl_TDS, :Sodium, :Total Dissolved Solids, :Sulphate, :Calcium )
),
show limit summaries( 0 ),
where( :loc_name == Eval( bygroup[i] ) )
)
);
lb << append( vlb );
);回复：从一页上的“按列”导出所有控制图，以导出到PowerPoint你好，
我正在寻找它们基本上被换位。 见附图。 因为那样，我会将每组6个图形导出为一个jpg并插入到powerpoint中。 查看LOC_NAME = 00-15A如何具有六个图，然后下一组六个图是LOC_NAME = 0016A。
