topic Need help with "Add Text Annotation" - not working as expected in Discussions

Need help with "Add Text Annotation" - not working as expected

miguello — Fri, 09 Jun 2023 17:00:32 GMT

All,

I'm using this script to add text annotation to the plot:

Eval(Parse(Eval Insert(JSL Quote(
biv<<SendToReport(
		Dispatch(
			{},
			"Bivar Plot",
			FrameBox,
			Add Text Annotation(
				Text( "R²=^R2^ \!nSlope=^Slope^" ),
				/*Font( "Segoe UI", 12, "Plain" ),*/
				Fixed Size( 0 ),
				Text Box( 15, 15, 200, 200 ),
				Filled( 1 ), 
				Editable( 0 ),
				Background Color( "Light Yellow" ),
				Text Color( "^fitColor^" )
				
			)
		)
	);
)
)));

I don't change Font in this case.

I get picture that is just fine:

with one exception - it's going to to be imported to a PPTX and font size for that text is too small. I need it bigger.

So then when I uncomment the font line in the script above to change font size to 12, I get this:

It looks to me that the Text Box ignores the sizes I provide (Text Box( 15, 15, 200, 200 )) and draws box enough to fit the text, but then it only considers the default text font and size, if I increase text size or change font to one that has bigger\wider symbols, text box is not enough anymore. I can manually resize it, but this is part of automated script to produce reports in PPTX.

Any ideas how to make the text bigger and text box not clip it?

Re: Need help with "Add Text Annotation" - not working as expected

jthi — Thu, 02 Jun 2022 19:26:05 GMT

Most likely scripting index can help you with this:

Names Default To Here(1);
Open("$SAMPLE_DATA/Big Class.jmp");
biv = bivariate(y(:weight), x(:height));
rbiv = biv << report;
ta = rbiv << Add Text Annotation();
ta << Text("We need to discuss this at the next meeting.");
ta << Text Box({65, 50, 400, 300});
ta << Font("Times New Roman", 14, "Bold");
ta << Fixed Size(1);

Re: Need help with "Add Text Annotation" - not working as expected

miguello — Thu, 02 Jun 2022 19:31:22 GMT

Yeah I tried it with different sizes and Fixed Size 1 or 0.

What helped - sending separate messages to the text annotations, not using SendToReport message.

Re: Need help with "Add Text Annotation" - not working as expected

miguello — Thu, 02 Jun 2022 19:39:21 GMT

Answer from @jthi implies the culprit was the Fixed Size(1) - but it wasn't working still. What did help was how @jthi was handling the whole thing.

I initially did <<SendToReport message, while @jthi created Text Annotation explicitly and manipulated it using this style:

ta = rbiv << Add Text Annotation();
ta << Text("We need to discuss this at the next meeting.");
ta << Text Box({65, 50, 400, 300});
ta << Font("Times New Roman", 14, "Bold");
ta << Fixed Size(1);

Ideally there shouldn't be any difference, but there is, apparently.