Save distribution to power point

[#1]

Hi

I try to save distribution plot into the .pptx. it does save however, it come into 3 pages for each plot ( pg 1 distribution, pg 2 quantiles, pg 3 summary statistics).

is there a way to combine all that into 1 pages ?

names default to here (1);
dt = current data table();

plot = 
Distribution(
	Stack( 1 ),
	Continuous Distribution(
		Column( :Q1'22 POR Fcst $ ),
		Horizontal Layout( 1 ),
		Vertical( 0 ),
		Normal Quantile Plot( 1 )
	)
);

plot << save presentation ("C:\temp\try.ppt");

[#2]

You need to move all objects into a single image and then save it.  Here is an example

\Names Default To Here( 1 );
dt = Open( "$sample_data/big class.jmp" );

plot = Distribution(
	Stack( 1 ),
	Continuous Distribution( Column( :height ), Horizontal Layout( 1 ), Vertical( 0 ), Normal Quantile Plot( 1 ) )
);

nw = New Window( "Output", (Report( plot )[Outline Box( 1 )] << get picture) );

nw << save presentation( "$TEMP\try.ppt" );

Open( "$TEMP\try.ppt" );