從一頁上的按列導出所有控製圖以導出到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。
