I am not sure if this is what you were talking about, Here is my guess as to what you want.
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/semiconductor capability.jmp" );
dt << New Column( "Split", character, set each value( Char( Mod( :wafer, 5 ) + 1 ) ) );
colNames = dt << get column names( continuous );
vc = Variability Chart( Y( Eval( colNames ) ), X( :split ), Std Dev Chart( 0 ) );
For( k = 1, k <= N Items( colNames ), k++,
mymax = Report( vc[k] )[axisbox( 1 )] << get max;
mymin = Report( vc[k] )[axisbox( 1 )] << get min;
Eval(
Substitute(
Expr(
Report( vc[k] )[framebox( 1 )] << add graphics script(
Transparency( .5 );
Fill Color( "yellow" );
Rect( 2, __Max__, 3, __Min__, fill = 1 );
)
),
Expr( __max__ ), mymax,
Expr( __min__ ), mymin
)
);
);
Jim