I am using the script below to generate a Weibull distribution plot, through the Life Distribution portal, and then send it to Powerpoint. In addition I am making into a data table the Weibull Parametric Estimate data which includes the Weibull Alpha and Beta.

The problem is along with the Weibull plot several other plots and tables are also sent to ppt, about thirty some slides worth of graphs and images.

Is there a way to bring only the Weibull distribution plot?

//Weibull Distribution Plot

wbd1 = ss2DT << Life Distribution(

Perspective( Compare Groups ),

Y( :VALUEABS ),

Grouping( :GRP ),

Confidence Interval Method( Wald ),

Select Distribution( Distribution, Weibull ),

Select Scale( Weibull ),

Tabbed Report( 0 ),

SendToReport(

Dispatch(

{"Life Distribution - Compare Groups", "Compare Distribution"},

"1",

ScaleBox,

{Format( "Fixed Dec", 12, 2 ), Min( 1.5 ), Max( 6 ), Inc( 0.3 ),

Minor Ticks( 1 )}

),

Dispatch(

{"Life Distribution - Compare Groups", "Compare Distribution"},

"2",

ScaleBox,

{Min( 0.000002502137722793 ), Max( 0.999941236419419 ),

Add Ref Line( 0.632, "Dashed", "Black", "", 1 )}

),

Dispatch(

{"Life Distribution - Compare Groups", "Compare Distribution"},

"Life Distribution Compare Groups",

FrameBox,

{Marker Size( 2 )}

),

Dispatch(

{"Life Distribution - Compare Groups", "Compare Distribution"},

"VALUEABS",

TextEditBox,

{Set Text( "Parm 1" )}

)

)

);

//Generate Weibell Parametric Data Table

wbdt1 = Report( wbd1 )[Outline Box( "Life Distribution - Compare Groups" )][

Outline Box( "Statistics" )][Outline Box( "Parameter Estimates" )][

Outline Box( "Parametric Estimate - Weibull" )][Table Box( 1 )] <<

Make Data Table( "Parm 1 Wb" );

wbdt1 << Save( "C:/Users/Wdt1.jmp" );

//Save Weibull Distribution to ppt

Wait(2);

Show Properties( wbd1 );

wbd1 << Save Presentation( "C:/Users/WbChart.pptx" );