How to export multiple graphs to Powerpoint

[#1]

I am using the column switcher to change my graph but i want it to iterate through each of the "switchers" and print each onto a powerpoint slide. Is this possible in JMP18?

[#2 · Accepted solution]

Names Default to Here( 1 );
dt = Open( "$SAMPLE_DATA/Hollywood Movies.jmp" );
gb = dt << Graph Builder(
	Size( 686, 572 ),
	Variables( X( :Genre ), Y( :Opening Wknd Gross ) ),
	Show Control Panel( 0 ),
	Elements(
		Bar(
			X,
			Y,
			Legend( 7 ),
			Bar Style( "Side by side" ),
			Summary Statistic( "Mean" )
		)
	)
);
cs = gb << Column Switcher(
		Opening Wknd Gross,
		{Rotten Tomatoes Score, Audience Score, Domestic Gross, Foreign Gross,
		World Gross, Production Budget, Profitability, Opening Wknd Gross},
		Close Outline( 1 )
	);
pptx_loc = "$DOCUMENTS/powerpoint_test.pptx";
gb << Save Presentation( pptx_loc );
For Each( {v, i}, Remove( cs << Get List, 1 ), cs << Next; gb << Save Presentation( pptx_loc, Append ) )

[#3]

Thank you Very Much this worked flawlessly i am new to the program but this i very easy to follow.

[#4]

Is there a way to use a standardize the powerpoint format that is used when creating this report? also removing the words "Graph Builder" from the bottom left? 

[#5]

Others may know the <<Save Presentation functionality better than I do.  It appears there's an option to specify a template.  When I want total control over the PowerPoint format, I use python.  One example in this post.