PowerPoint にエクスポートするために、1 ページの列ごとにすべての管理図をエクスポートします。こんにちは、
スクリプトの By 部分を使用して、20 個の個別の地下水監視井戸用の 6 つの管理図を作成するスクリプトがあります。 スクリプトの最後に追加して、個別の監視場所ごとに 6 つの管理図を PowerPoint プレゼンテーションの 1 ページに印刷できるようにしたいと考えています。結果として、各ページに 6 つのグラフが含まれる 20 ページの長さの PowerPoint プレゼンテーションが作成されます。 このタスクをどこから始めればよいかについてのアドバイスを探しています。 グラフの作成に使用しているスクリプトは次のとおりです。
Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
By(:LOC_NAME)
);
ありがとう！
結果の共有と伝達Re: PowerPoint にエクスポートするために、1 ページの列ごとにすべての管理図をエクスポートします@txnelson脚本ありがとうございます！ パーフェクトです。 一部を変更して、各サンプルの 6 つのグラフすべてを 1 つの PowerPoint スライドに保存できるようにすることができました。 ご協力に本当に感謝しています。台本を読みながら楽しく学べました。
再度、感謝します！
Re: PowerPoint にエクスポートするために、1 ページの列ごとにすべての管理図をエクスポートします以下は、サンプル データ テーブルから PowerPoint 出力を作成するスクリプトです。
Names Default To Here( 1 );
dt = Current Data Table();
// Get a list of the LOC_Name's that are in the data
Summarize( dt, bygroup = by( :LOC_Name ) );
// Create a display window to put the graphs into
Nw = New Window( "Control Charts" );
// Loop across all of the LOC_Name's creating the six control
// charts
For( i = 1, i <= N Items( bygroup ), i++,
// Create the Outline Box to hold the 6 charts
ob = Outline Box( "Control Charts for LOC_Name=" || byGroup[i] );
// Create a display box of three objects wide
// With the 6 control charts, it will make it a
// 2 row 3 column output
lub = Lineup Box( N Col( 3 ) );
// Create the 6 charts
ccb = dt << Control Chart Builder( invisible,
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] ) )
);
// Loop across the output pulling out the 6 Picture Boxes
// that contains the desired output for each control chart
// and add them to the Lineup Box
For( k = 1, k <= 6, k++,
lub << append( Report( ccb )[Picture Box( i )] )
);
// Close the no longer needed Control Chart Builder window
Report( ccb ) << close window;
// Add the contents of the Line Up Box to the Outline Box
// but make it a single object so when saved to pptx it will
// be treated as a single graph
ob << append( lub << get picture );
// Add the current outline box to the display window
nw << append( ob );
);
// Save the graphs to PowerPoint
nw << save presentation( "$TEMP/myppt.pptx" );
// Display the PowerPoint output
Open( "$TEMP/myppt.pptx" );
時間をかけてスクリプトを読んで、私がとったアプローチを理解して、必要な調整を行ってください。『スクリプト ガイド』の表示ツリーに関するセクションでは、出力をどのように分離し、新しい表示形式に再構築したかについての背景を説明します。
Re: PowerPoint にエクスポートするために、1 ページの列ごとにすべての管理図をエクスポートしますこんにちは、
基本的には転置されるものを探しています。 添付の写真を参照してください。 6 つのグラフの各セットを 1 つの jpg としてエクスポートし、PowerPoint に挿入するためです。 LOC_NAME = 00-15A に 6 つのグラフがあり、次の 6 つのグラフのセットが LOC_NAME = 0016A であることを確認します。
Re: PowerPoint にエクスポートするために、1 ページの列ごとにすべての管理図をエクスポートしますこれがあなたが探しているものですか?
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 );
);Re: PowerPoint にエクスポートするために、1 ページの列ごとにすべての管理図をエクスポートしますこんにちは、
アイデアをありがとう。 スクリプトを少し変更して、ラインナップ ボックスを含めました。 最初に、「by」列に複数の一意の名前を入れてみました。 ただし、一意の名前ごとに 6 つのグラフを 3 つの列からなる 2 つの列に分割するのではなく、2 番目の列に異なるサンプルを配置していました。 添付の写真を参照してください。
そこで、6 つのグラフが 2 つの列に分割されるかどうかを確認するために、1 つの一意の値のみを使用して再試行したところ、6 つのグラフの列に 1 つの一意の値がエクスポートされました。 まだ2列に分かれていませんでした。 私の何が間違っているのでしょうか？
以下はスクリプトの一部です。
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);
);
);
);役立つ場合は、私のデータセットの例も含めました。
ご協力ありがとうございました。
Re: PowerPoint にエクスポートするために、1 ページの列ごとにすべての管理図をエクスポートしますこれは、出力の複数列を作成するために使用する方法の 1 つです。
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 )
)
)
);
Re: PowerPoint にエクスポートするために、1 ページの列ごとにすべての管理図をエクスポートしますやあ！
お返事ありがとうございます。 ビデオを見たところ、PowerPoint に管理図を配置し、自動的に更新するための適切な情報が得られました。 それは間違いなく役に立ちます。 管理図の各セットを特定のフォルダーにjpgとして保存するようにスクリプトを追加しました。そして、あなたが言ったように、それらをPowerPointに挿入します（リンク付き）。 ただし、パズルの最後のピースは、jpg 内のグラフを横に 3 つ、下に 2 つ配置することです。 現在、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);
);Re: PowerPoint にエクスポートするために、1 ページの列ごとにすべての管理図をエクスポートしますやあ、
私は数か月前にマスタリング JMP セッションを録画し、レポートを PowerPoint に自動的に保存する方法を説明しました ( JMP をマスターする 結果を共有する、33:30から）。ここから始めるのが良いかもしれません。ぜひご覧ください。これが正しい方向を示しているかどうかをお知らせください。
