Hello JMP Team,
I need some help outputting my journal to a presentation.
The thing is, I want the presentation to use the specific pptx theme.
> 'jour << Save Presentation("' + tech_epi + "\\" + tech_epi + '.pptx", Template("C:\\Code\\Scripts\\PCM CPK Automation\\TrendChart-template.pptx"));\n'
Currently, inside my template.pptx, it only has 1 slide inside it. A empty title slide. But the title slide is of the desired pptx theme.
When the script below runs, it puts each Oneway plot on a new title slide. I want it to create a new Content slide and put the Oneway plots in the content slides.
How might I go about this?
I checked the Scripting Index but had some trouble understanding it.

jsl_code = (
'jmp_dt = Open("' + file_path + '");\n'
'column = Column(jmp_dt, "' + oracle_param + '");\n'
'column << Set Name("' + param + '");\n'
'obj = jmp_dt << Oneway(\n'
' Y(:' + param + '),\n'
' X(:LOT),\n'
' Points(),\n'
' Box Plots(1),\n'
' Mean Diamonds(0),\n'
' X Axis proportional(0),\n'
' Grand Mean(0),\n'
' SendToReport(\n'
' Empty(),\n'
' Dispatch({}, "1", ScaleBox, \n'
' {Scale(Linear), Format(Best), Min(' + str(minY_plot) + '), Max(' + str(maxY_plot) + '), Inc(' + str(incr) + '),\n'
' Add Ref Line(' + str(target) + ', Solid, Green),\n'
' Add Ref Line(' + str(SH) + ', Solid, Red),\n'
' Add Ref Line(' + str(SL) + ', Solid, Red),\n'
' Add Ref Line(' + str(CH) + ', Dashed, Yellow),\n'
' Add Ref Line(' + str(CL) + ', Dashed, Yellow)}\n'
' ),\n'
' Dispatch({}, "Oneway Plot", FrameBox, \n'
' {Frame Size(1100, 400),\n'
' Add Graphics Script(\n'
' 2,\n'
' Description("Script"),\n'
' Text Color("red");\n'
' Text({0.1, ' + str(SL) + '}, "LSL");\n'
' ), Add Graphics Script(\n'
' 3,\n'
' Description("Script"),\n'
' Text Color("red");\n'
' Text({0.1, ' + str(SH) + '}, "USL");\n'
' ), Add Graphics Script(\n'
' 4,\n'
' Description("Script"),\n'
' Text Color("yellow");\n'
' Text({0.1, ' + str(CL) + '}, "LCL");\n'
' ), Add Graphics Script(\n'
' 5,\n'
' Description("Script"),\n'
' Text Color("yellow");\n'
' Text({0.1, ' + str(CH) + '}, "UCL");\n'
' ), Add Graphics Script(\n'
' 7,\n'
' Description("Script"),\n'
' Text Color("green");\n'
' Text({0.1, ' + str(target) + '}, "TGT");\n'
' ),\n'
' Marker Size(3)\n'
' }\n'
' )\n'
' )\n'
');\n'
'obj << Save Script to Data Table ( "Oneway", <<Replace ( 0 ), <<Prompt( 0 ));\n'
'obj << Journal;\n'
'jour = Current Journal();'
'jour << Save Presentation("' + tech_epi + "\\" + tech_epi + '.pptx", Template("C:\\Code\\Scripts\\PCM CPK Automation\\TrendChart-template.pptx"));\n'
'jmp_dt << Save("' + tech_epi + "\\" + param + '.jmp");\n'
'Close (jmp_dt, "NoSave");\n'
)