Subscribe Bookmark RSS Feed

Export legend for control chart

olivier_h

Community Trekker

Joined:

Apr 22, 2013

Hello,

I'm currently using a script which automatically creates control charts from a specified database, then export them to a image file. The image files are eventually linked in powerpoint.

I'm now trying to export control charts where the points are colored (using "row/color or mark by column") and I want to display the legend in my powerpoint file. The problem is that there is no option to show the legend apart from the option "make window with legend" checked when coloring the rows.

One idea would be to export a image file of the legend window but I couldn't find the script command to do that.

Thanks for your help,

Olivier

1 ACCEPTED SOLUTION

Accepted Solutions
Solution

dt= open("$sample_data\Big class.jmp");

cc =  dt << Control Chart(

          KSigma( 3 ), Chart Col( :weight, Levey Jennings( Test 1( 1 ) ) ) );

         

dt << Color by Column(

      sex,

      Color( 1 ),

      Color Theme( "JMP Default" ),

             Marker( 0 ),

      Marker Theme( "" ),

      Continuous Scale( 0 ),

      Reverse Scale( 0 ),

      Excluded Rows( 0 ),

      Make Window with Legend(1)

);

wait(1);

ww=Window("Legend");

xx= ww<< xpath("//PictureBox");

pb = xx[1] << Clone Box;

rpt = New Window("Report",

      Outline Box("put title here",

            HListBox(report(cc)[PictureBox(1)],

                  pb

            )

      )

);

ww<< close window();

cc << close window();

2 REPLIES
Solution

dt= open("$sample_data\Big class.jmp");

cc =  dt << Control Chart(

          KSigma( 3 ), Chart Col( :weight, Levey Jennings( Test 1( 1 ) ) ) );

         

dt << Color by Column(

      sex,

      Color( 1 ),

      Color Theme( "JMP Default" ),

             Marker( 0 ),

      Marker Theme( "" ),

      Continuous Scale( 0 ),

      Reverse Scale( 0 ),

      Excluded Rows( 0 ),

      Make Window with Legend(1)

);

wait(1);

ww=Window("Legend");

xx= ww<< xpath("//PictureBox");

pb = xx[1] << Clone Box;

rpt = New Window("Report",

      Outline Box("put title here",

            HListBox(report(cc)[PictureBox(1)],

                  pb

            )

      )

);

ww<< close window();

cc << close window();

olivier_h

Community Trekker

Joined:

Apr 22, 2013

This is exactly what I needed, thanks a lot gzm.