You can pin the label. To do it by hand just mouse over the marker and place the pointer on top of the label box to reveal the pin.
The same thing can be done by sending <<Add Pin Annotation to the FrameBox, but the parameters can be tricky to get right.
I would first pin and position the label by hand and then copy the script. See the example below:
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << New Column("Image", Expression, Formula(New Image(Open("$SAMPLE_IMAGES/pi.gif", gif))));
dt << Set Label Columns(:Image);
//dt << Select rows( label_row) << Label( 1 ) << Clear Select;
dt << Bivariate(
Y(:weight),
X(:height),
SendToReport(
Dispatch(
{},
"Bivar Plot",
FrameBox,
Add Pin Annotation(
Seg(Marker Seg(1)),
Index(39),
Index Row(-1),
Origin({70, 172}),
Offset({30, 16}),
Tag Line,
Font("Helvetica", 11, "Plain")
)
)
)
);
Current Report() << size window(475, 374);