This question has been asked before. Here is a link to the way I approach the issue
How to save journal as PPT (2 graphs per slide) using JSL
Here is a complete example, using your data that creates the output you want
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" );
Jim