340641_en-US

liliconcom

Export all control charts from By column on one page for export to powerpoint

Hello,

 

I have a script that I use to make 6 control charts for 20 separate groundwater monitoring wells using the By portion in the script. I would like to add on to the end of the script so I can print the 6 control charts for each separate monitoring location on one page in a powerpoint presentation Result in a powerpoint presentation that is 20 pages long, with 6 graphs on each page. I'm looking for some advice on where to start for this task? Here is the script I'm using to make the charts: 

 

Control Chart Builder(
 Show Capability( 0 ),
 Variables(
  Subgroup( :SAMPLE_DATE ),
  Y(
   :Chloride,
   :Cl_TDS,
   :Sodium,
   :Total Dissolved Solids,
   :Sulphate,
   :Calcium
  ),
  
 ),
 By(:LOC_NAME)
);

Thank you!

GraphicsScriptingRe: Export all control charts from By column on one page for export to powerpoint

Hi,

 

I recorded a Mastering JMP session a few months ago in which I demonstrate how to automatically save reports to excel (Mastering JMP Sharing Your Results, starting at 33:30).  This might be a good place to start.  Please take a look and let me know if this points you in the right direction.

Re: Export all control charts from By column on one page for export to powerpoint

Hi!

 

Thank you for your reply. I watched the video and it gave me the right info for putting the control charts in powerpoint and having them update automatically. That is definitely helpful. I have now added on to my script to save each set of my control charts as a jpg in a specific folder, and I will insert those into powerpoint as you said (with a link). However, my last piece of the puzzle involves arranging the graphs in my jpgs three graphs across and two down. Currently they are exporting 6 down, which doesn't look nice on a powerpoint slide. See attached picture. 

 

Thanks for your help!

 

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: Export all control charts from By column on one page for export to powerpoint

Here is one of the methods that I use to create multiple columns of output

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: Export all control charts from By column on one page for export to powerpoint

Hello,

 

Thank you for the idea. I changed the script a bit to include a Lineup box. At first I tried with multiple unique names ine the 'by' column. However it was putting a different sample in the second column, rather than splitting up the 6 graphs for each unique name into 2 columns of three. See attached photo. 

 

So I tried again using only one unique value to see if it would split the six graphs into 2 columns and it exported the one unique value in a column of six graphs. It still didn't separate into 2 columns. What am I doing wrong?

 

Here's a portion of the script.

 

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);
);

);
);

I've also included an example of my dataset if that helps.

Thank you for your help.

Re: Export all control charts from By column on one page for export to powerpoint

Is this what you are looking for?

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: Export all control charts from By column on one page for export to powerpoint

Hello,

 

I'm looking for them to be transposed basically. See attached picture. Because then I will export each set of 6 graphs as one jpg and insert into powerpoint. See how LOC_NAME = 00-15A has six graphs, and then the next set of six graphs is LOC_NAME = 0016A.