Ppt Help

viskovicz00012

Im kinda lost with having to append the output of this into ppt slides -- my aim is each slide has 4 columns and two rows. 

Here's what I've done so far

 

params = New Window( "Parameters vs WEW (Design)",
                                V List Box(
                                        Lineup Box( N Col( NST ),

                                                For( i = 1, i <= N Items( colnamey ), i++,

                                                        biv = Bivariate(

                                                                Y( Column( dt, colnamey[i] ) ),

                                                                X( Column( dt, colnamex[i] ) ),

                                                                By( :STO ),

                                                                Group By( Column( dt, groupname ) ),

                                                                Fit Spline( 1000 )

                                                        );

                                                        rbiv = biv << report;

                                                        For( k = 1, k <= NST, k++,

                                                                rbiv[k][FrameBox( 1 )] << {Frame Size( 250, 200 ),

                                                                Marker Size( 0 ), Line Width Scale( 2 )};

                                                                rbiv[k][axis box( 2 )] <<

                                                                Tick Font( style( 1 ), size( 9 ) ) <<

                                                                Format( Best, 5 ) << Show Major Grid( 1 ) <<

                                                                Show Minor Grid( 1 ) << Show Minor Ticks( 1 );

                                                                rbiv[k][axis box( 1 )] <<

                                                                Tick Font( style( 1 ), size( 9 ) ) <<

                                                                Format( Best, 5 ) << Show Major Grid( 1 ) <<

                                                                Show Minor Grid( 1 ) << Show Minor Ticks( 1 );

                                                                rbiv[k][Text Edit Box( 2 )] << Set Font Size( 10 )

                                                                << Set Font Style( "Bold" );

                                                                rbiv[k][Text Edit Box( 1 )] << Set Font Size( 10 )

                                                                << Set Font Style( "Bold" );

                                                        );

                                                        For( b = 1, b <= N Items( GroupList ), b++,

                                                                fitcrve = "biv << (curve[" || Char( b ) ||

                                                                "]<<report(0))

                                                                ";

                                                                fitcrve = Eval( Parse( fitcrve ) );

                                                        );

                                                )

                                        )

                                )

                        );

pmroz

Try params << save presentation().  Here's an example:

Names Default To Here( 1 );
Open( "$SAMPLE_DATA/Big Class.jmp" );
nw = new window("Example",
	vlb = vlistbox(
		table box(
			string col box("Hello", {"ABC", "DEF", "GHI"}),
			number col box("World", {100, 200, 300}),
		),
		biv = bivariate( y( :weight ), x( :height ) ),
	)
);

nw << Save Presentation( "$TEMP/jmp_example.pptx" );
Open( "$TEMP/jmp_example.pptx" );

This puts the tablebox and bivariate analysis on separate pages.  Not sure how to put it all on one page.