The Discussion entry that I referenced in my previous response uses the same basic concept as the below example. I have tried in this example to make it as straight forward as possible to provide an example of Side by Side charts on a ppt using an H List Box
Names Default To Here( 1 );
// Open Data Table: big class.jmp
// → Data Table( "big class" )
dt = Open( "/C:/Program Files/SAS/JMPPRO/14/Samples/Data/big class.jmp" );
// Using the Fit Y by X platform, create a graph
fit1 = Fit Y by X( Y( :height ), X( :sex ) );
// Using the Fit Y by X platform, create a second graph
fit2 = Fit Y by X( Y( :weight ), X( :sex ) );
// Create an H List Box and place the two graphs into it
myHLB = H List Box();
myHLB << append( Report( fit1 )[Outline Box( 1 )] );
myHLB << append( Report( fit2 )[Outline Box( 1 )] );
// Create a journal that contains an Outline Box to be used for the
// ppt title for the one slide it will produce
nw = New Window( "The Journal", <<journal, ob = Outline Box( "This is the title for the ppt" ) );
// Move a single picture of the 2 graphs from the H List Box to the Outline Box
// in the journal. Because it is a single object(picture) of the 2 graphs, it
// will be on a single slide when saved as a ppt
ob << append( myHLB << get picture );
// Save the journal to the ppt
nw << Save Presentation( "$TEMP/Simple Example.pptx" );
// Open the ppt to show that it has been created
Open( "$TEMP/Simple Example.pptx" );
Jim