Here is one approach......I attempted to use "Remove Axis Label" on the graph builder window, but it failed to work. So I had to get a bit more specific.
names default to here(1);
dt=open("$SAMPLE_DATA/big class.jmp");
gb = Graph Builder(
Size( 528, 456 ),
Show Control Panel( 0 ),
Variables( X( :weight ), Y( :height ) ),
Elements( Points( X, Y, Legend( 6 ) ), Line Of Fit( X, Y, Legend( 8 ) ) )
);
gbr = gb << report;
gbr[LegendBox(1)]<<delete;
gbr[GraphBuilderComponentBox(1)][TextEditBox(1)]<<set text("");
gbr[GraphBuilderTitleBox(3)][TextEditBox(1)]<<set text("");
gbr[GraphBuilderTitleBox(4)][TextEditBox(1)]<<set text("");
nwj=new window("The Picture",<<journal);
nwj<<append(gbr[ListBox(2)]<<get picture);
Jim