Change text size of a TextBox object in a part document sketch?

[chuck_b]

This code works with no errors but does not change the text size. A user can overide the text size (Font size) so I'm hoping it is possible thru code. Thanks, Chuck

Dim oSketch As Inventor.Sketch
Set oSketch = oPartDoc.ComponentDefinition.Sketches("Sketch1")
Dim oText As Inventor.TextBox
Set oText = oSketch.TextBoxes.AddByRectangle(pnt1, pnt2)
oText.Style.FontSize = 0.1

[Anonymous · Accepted solution]

The Font Size control is not for the entire text
box. Rather, it can be applied to individual characters within the text box.i.e.
different characters can have different overrides. So you'll need to use the
FormattedText property to define such overrides.

oTextBox.FormattedText = "<StyleOverride
FontSize = '.6096'>" & "some text" &
"</StyleOverride>"

Note that the font size is specified in
centimeters.

Sanjay-

[Anonymous]

but the formatted text will put default text like "some text".

What if we want   

 "<StyleOverride 
FontSize = '.6096'>" & opartOcc.name & 
"</StyleOverride>"

kind of output????

[Anonymous]

Yup... Got it mate... Cheers...