Powerpoint

skyzvoir0001

Hi, I have this code which shows a window with multiple plots. Question is, how do i save the output in powerpoint as one slide?

 

 

New Window( "Para v PGT",
	Lineup Box( N Col( 3 ),
		For( i = 1, i <= N Items( colname ), i++,
			For( j = 1, j <= N Items( colnamex ), j++,
				biv = Bivariate( Y( Column( dt, colname[i] ) ), X( Column( dt, colnamex[j] ) ), group by( groupcol ) );

				rbiv = biv << report;

				rbiv[FrameBox( 1 )] << {Frame Size( 240, 190 ), Marker Size( 1 ), Line Width Scale( 3 )};

				rbiv[axis box( 2 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );

				rbiv[axis box( 1 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );

				rbiv[Text Edit Box( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );

				rbiv[Text Edit Box( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
			)
		)
	)
);

 

 

txnelson

Here is an example of how I handle this.  I simply move the objects into a single picture object, and then save the picture object.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/blood pressure.jmp" );
colname = {"BP 8M", "BP 12M", "BP 6M"};
colnamex = {"BP 8W", "BP 12W", "BP 6W"};
groupcol = Column( "Dose" );

ob = Outline Box( "",
	Lineup Box( N Col( 3 ),
		For( i = 1, i <= N Items( colname ), i++,
			For( j = 1, j <= N Items( colnamex ), j++,
				biv = Bivariate(
					Y( Column( dt, colname[i] ) ),
					X( Column( dt, colnamex[j] ) ),
					group by( groupcol )
				);
				rbiv = biv << report;
				rbiv[FrameBox( 1 )] << {Frame Size( 240, 190 ), Marker Size( 1 ), Line Width Scale( 3 )};
				rbiv[axis box( 2 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) <<
				Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
				rbiv[axis box( 1 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) <<
				Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
				rbiv[Text Edit Box( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
				rbiv[Text Edit Box( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
			)
		)
	)
);

nwj = New Window( "Para v PGT", <<journal );
nwj << append( ob << get picture );
nwj << save presentation( "$TEMP/jmp_example.pptx" );
Open( "$TEMP/jmp_example.pptx" );