Align TextBox Within A Range

[Anshu]

Thank you for the Active X textBox! It works, but only for height. The width of the textbox is shrinked automatically. This is a main reason I prefer to use normal TextBox, because width remain static for normal textbox.

[p45cal]

Try something along these lines:

Private Sub TextBox1_GotFocus()
With TextBox1
  .AutoSize = True
  .Left = Range("B1").Left
  .Top = Range("A356").Top
  .Width = 590
  .EnterKeyBehavior = True
End With
End Sub

Private Sub TextBox1_LostFocus()
With TextBox1
  .EnterKeyBehavior = False
  .Top = Range("A356").Top
  .Left = Range("B1").Left
  .Width = 590
  .AutoSize = False
  ht = .Height
  Debug.Print ht
  .Height = Application.Max(171, ht)
  Range("A356:A375").RowHeight = (.Height / 20)    ' + 0.5
  .Height = Range("A356:A375").Height
  Do While .Height < ht
    Range("A356:A375").RowHeight = Range("A356").RowHeight + 0.25
    .Height = Range("A356:A375").Height
  Loop
End With
End Sub

[Anshu]

Thanks a lot for helping me! It is working really well.

When I close the document after entering something in the active x textbox, a popup comes with the message...
"parts of your document may include personal information that can't be removed by document inspector"

It can be disabled in Trust Center > Trust Center Settings > Privacy Options, but my question is - if I share this file to someone, is this pop-up comes every time they make any change to the textbox?? This may be annoying for them.

[p45cal]

The file will retain the setting you give it in Trust Centre (as long as you save it), so that message should no longer pop up.

[Anshu]

Okay...thank you so much!!