Active X TextBox with fixed width, but dynamic height

**DocAElstein** · 06-04-2020, 05:40 PM

Hi
I may not be able to help too much, since I have no experience with Active X text boxes.

I tried for the first time ever to get what you may be asking for . This is how it went. ( Using Excel 2007 )

_1) I need the Developer ribbon ( You may already have this)
ExcelOptions.JPG : https://imgur.com/p8gVo1y
Show Developer tab in Ribbon.JPG : https://imgur.com/JcB0DCu
Developer tab OK.JPG : https://imgur.com/W7y84A5

_2) Insert the text box
Developer Insert Text Box.JPG : https://imgur.com/qkcBkib
Finally , move cross cursor to top left of where you want the text box, and then hold left mouse and drag window to size you want, or just click once to add the text box, ( https://support.microsoft.com/en-us/...a-001f3ecd6cd6 )

_3) Make sure you are still in Design mode
Still in Design Mode.JPG : https://imgur.com/qT3EVGS

_4) right click in Text Boxwindow and select View Code
Text Box View Code.JPG : https://imgur.com/l89FgZo

_5) In the properties window you need to make 3 things True ( or = 1 )
Text Box Autosize True.JPG : : https://imgur.com/vVNuefX
Text Box Multiline True.JPG : https://imgur.com/1JrMRSX
Enter Field Behavior True.JPG : https://imgur.com/wnupBCX

_6) Give the Height and Width Properties that you want
Text Box Width Height.JPG : https://imgur.com/Wn0xVQ2

_7) Add this coding:

Code:

Private Sub TextBox1_Change()
    If TextBox1.Height < 139 Then Let TextBox1.Height = 139.8
 Let TextBox1.Width = 368.25
End Sub

_8) De select the Design mode by clicking once on the ribbon Design Mode icon , until it is no longer highlighted
De Select Design Mode.JPG : https://imgur.com/DKR4Ky4
De Selected Design Mode.JPG : https://imgur.com/UdvRsFk

If that does not help, then I may not be able to help further, as I this was my first attempt at anything to do with a Text Box

Alan

Ref https://www.ozgrid.com/forum/index.p...eight-to-text/

The Text Box in this file, appears to do something like you are asking for:
‘Book1.xlsm’ : https://app.box.com/s/2zw5tvwsz2daru9wboks1cgfygb4x9m2