nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

459192_en-US

liliconcom

How to save control charts and its summary to the same slide in ppt

Hi,

I've got script which creates block of Control charts with capabilities based on the parameter and i would like to save each report for each parameter into separate ppt slide. Any help appreciated.

Here are the charts:

and i would like to have each parameter chart and report on separate ppt slide:

Attached is the table with Control chart script.

Thanks,

Tomasz

PS. and if it is possible to save only the charts which have Ppk below 1.33 then it would be magnificent

Analytics

Data Table

Scripting

Re: How to save control charts and its summary to the same slide in ppt

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

Re: How to save control charts and its summary to the same slide in ppt

Hi Jim,

This looks very well and dose excellent job but is there a way to do similar job but keep the integrity of the original control chart script unchanged?

I'm extracting the capabilities from all charts so i need them in one block.

I do lake the approached you mentioned in the How to save journal as PPT (2 graphs per slide) using JSL , is there a way to modify that script to work with control chart script?

Thanks,

Tomasz

Re: How to save control charts and its summary to the same slide in ppt

Add the below JSL to the bottom of your script and you should get what you want

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;