やあ、
パラメータに基づいた機能を持つ管理図のブロックを作成するスクリプトがあり、各パラメータの各レポートを別のpptスライドに保存したいと考えています。 助けていただければ幸いです。
グラフは次のとおりです。

そして、各パラメータのチャートとレポートを別のpptスライドに載せたいと考えています。

管理図スクリプトを含む表を添付します。
ありがとう、
トマシュ
PS.そして、Ppk が 1.33 未満のチャートだけを保存できれば、それは素晴らしいことになります 
こんにちは、ジムさん
それはまさに私が必要としていたものです、本当にありがとう。
トマシュ
以下の JSL をスクリプトの最後に追加すると、必要なものが得られるはずです
nw = New Window( "Control Charts",
V List Box(
obAge = Outline Box( "Control Chart for Age" ),
obWeight = Outline Box( "Control Chart for Weight" ),
obOxy = Outline Box( "Control Chart for Oxy" )
)
);
ob = Outline Box( "", hlb = H List Box() );
hlb << append( Report( gb )["Levey Jennings of Age"] );
ob2 = Outline Box( "Distributions" );
ob2 << append( Report( gb )["Age"] );
hlb << append( ob2 );
obAge << append( ob << get picture );
ob = Outline Box( "", hlb = H List Box() );
hlb << append( Report( gb )["Levey Jennings of Weight"] );
ob2 = Outline Box( "Distributions" );
ob2 << append( Report( gb )["Weight"] );
hlb << append( ob2 );
obWeight << append( ob << get picture );
ob = Outline Box( "", hlb = H List Box() );
hlb << append( Report( gb )["Levey Jennings of Oxy"] );
ob2 = Outline Box( "Distributions" );
ob2 << append( Report( gb )["Oxy"] );
hlb << append( ob2 );
obOxy << append( ob << get picture );
nw << Save Presentation( "$TEMP/jmp_example2.pptx" );
Open( "$TEMP/jmp_example2.pptx" );
nw << close window;
こんにちは、ジムさん
これは非常にうまく見え、素晴らしい仕事をしていますが、元の管理図スクリプトの整合性を変更せずに同様の仕事をする方法はありますか?
すべてのチャートから機能を抽出しているので、1 つのブロックにまとめる必要があります。
あなたが言及したアプローチを湖にしますJSL を使用してジャーナルを PPT (スライドごとに 2 つのグラフ) として保存する方法、そのスクリプトを管理図スクリプトで動作するように変更する方法はありますか?
ありがとう、
トマシュ
この質問は以前にも行われました。ここに私が問題にアプローチする方法へのリンクがあります
JSL を使用してジャーナルを PPT (スライドごとに 2 つのグラフ) として保存する方法
データを使用して必要な出力を作成する完全な例を次に示します。

Names Default To Here( 1 );
nw = New Window( "Control Charts",
ob1 = Outline Box( "Levey Jennings of Age" ),
ob2 = Outline Box( "Levey Jennings of Weight" ),
ob3 = Outline Box( "Levey Jennings of Oxy" )
);
cc1 = Control Chart(
invisible,
Sample Label( :Name ),
KSigma( 3 ),
Chart Col(
:Age,
Levey Jennings(
Show Zones( 1 ),
Shade Zones( 1 ),
Test 1( 1 ),
Test 2( 1 ),
Test 5( 1 ),
Test 6( 1 ),
Test Beyond Limits( 1 )
),
Capability(
Distribution(
Continuous Distribution(
Column( :Age ),
Quantiles( 0 ),
Horizontal Layout( 1 ),
Vertical( 0 ),
Outlier Box Plot( 0 ),
Normal Quantile Plot( 1 ),
Process Capability(
Use Column Property Specs,
Process Capability Analysis(
Nonconformance( 0 ),
Histogram( 1, Show Within Sigma Density( 0 ) )
)
),
Customize Summary Statistics( Skewness( 1 ) )
)
)
)
)
);
cc2 = Control Chart(
invisible,
Sample Label( :Name ),
KSigma( 3 ),
Chart Col(
:Weight,
Levey Jennings(
Show Zones( 1 ),
Shade Zones( 1 ),
Test 1( 1 ),
Test 2( 1 ),
Test 5( 1 ),
Test 6( 1 ),
Test Beyond Limits( 1 )
),
Capability(
Distribution(
Continuous Distribution(
Column( :Weight ),
Quantiles( 0 ),
Horizontal Layout( 1 ),
Vertical( 0 ),
Outlier Box Plot( 0 ),
Normal Quantile Plot( 1 ),
Process Capability(
Use Column Property Specs,
Process Capability Analysis(
Nonconformance( 0 ),
Histogram( 1, Show Within Sigma Density( 0 ) )
)
),
Customize Summary Statistics( Skewness( 1 ) )
)
)
)
)
);
cc3 = Control Chart(
invisible,
Sample Label( :Name ),
KSigma( 3 ),
Chart Col(
:Oxy,
Levey Jennings(
Show Zones( 1 ),
Shade Zones( 1 ),
Test 1( 1 ),
Test 2( 1 ),
Test 5( 1 ),
Test 6( 1 ),
Test Beyond Limits( 1 )
),
Capability(
Distribution(
Continuous Distribution(
Column( :Oxy ),
Quantiles( 0 ),
Horizontal Layout( 1 ),
Vertical( 0 ),
Outlier Box Plot( 0 ),
Normal Quantile Plot( 1 ),
Process Capability(
Use Column Property Specs,
Process Capability Analysis(
Nonconformance( 0 ),
Histogram( 1, Show Within Sigma Density( 0 ) )
)
),
Customize Summary Statistics( Skewness( 1 ) )
)
)
)
)
);
ob1 << append( cc1 << get picture );
ob2 << append( cc2 << get picture );
ob3 << append( cc3 << get picture );
nw << Save Presentation( "$TEMP/jmp_example.pptx" );
Open( "$TEMP/jmp_example.pptx" );