Welcome to the community!
Here is an example how this could be done.
It looks for the outline boxes that contain "Plot" in title, and save that as a picture.
Best regards
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Semiconductor Capability.jmp" );
obj = dt << Process Capability(
Process Variables( :NPN1[:lot_id, :wafer], :PNP1[:lot_id, :wafer], :PNP2[:lot_id, :wafer], :NPN2[:lot_id, :wafer], :PNP3[:lot_id, :wafer] )
);
oboxes = Report( obj ) << XPATH( "//OutlineBox" );
For Each( {obox, index}, oboxes,
If( Contains( (obox << get title), "Plot" ),
obox << save picture( Eval Insert( "$TEMP\^char(index)^_test.jpg" ) )
)
);
Open( "$TEMP" );
Georg