Making text fit

[raw]

Hi

I have a user form and a worksheets with a textbox (the worksheet is for my sale orders and the form is used so any user can input text and then the info is sent to the worksheet and printed).

Is it possible that if a user has entered more text than the worksheet text box will be able to display that it can change the text to a smaller font size so all the info fits? Is there any code that I could add to the textbox to allow this to happen?

Many thanks

[cbanks]

you can change the cell format on your worksheet to "shrink to fit" under the format cells option. Under properties on the form you can limit to how many characters can be input. thats all i know of.

[boylejob]

Raw,

How do you move your data from the UserForm to the worksheet? You could code to make change at the point the data is moved. You could use the LEN function and change the font size if the length is above a certain number.

If Len(UserForm.TextBox.Value) > X Then
   Activesheet.Range("A1").Font.Size = 8
End IF

cbanks mentioned ShrinkToFit and the code for that is

ActiveSheet.Range("B2").ShrinkToFit = True

Looks like you have several options that can help solve your problem. If you prove a little more detail, we might be able to come up with some better solutions for you.