Help! textbox height can't even be manually changed!!!!

[mortgageman]

I have tried everything to get my textbox1 to be a certain height. As you can see, I even just plugged in a big number (1600) just to see what would happen. NOTHING HAPPENS. The size of the box doesn't change no matter what I do.

Is there something really stupid on my part going on?

Gene Klein

 .TextBox1.Top = 30
         .TextBox2.Top = 30
         MsgBox .TextBox30.Top
         MsgBox .TextBox1.Top
         MsgBox .TextBox30.Height
         '.TextBox1.Height = .TextBox30.Top - .TextBox1.Top + .TextBox30.Height
         .TextBox1.Height = TextBox30.Top + TextBox30.Height
          MsgBox TextBox1.Height
        TextBox1.Height = 1600
      
        .TextBox2.Height = TextBox1.Height
        .TextBox14.Height = TextBox1.Height
   
        .TextBox4.Visible = False
        .TextBox5.Visible = False
        .TextBox6.Visible = False
        .TextBox7.Visible = False
        .TextBox9.Visible = False
        .TextBox11.Visible = False
        .TextBox12.Visible = False
        .TextBox15.Visible = False
        .TextBox16.Visible = False
        .TextBox17.Visible = False
        .TextBox18.Visible = False
        .TextBox19.Visible = False
        .TextBox20.Visible = False
        .TextBox21.Visible = False
End With

 

[drhatmrexcel]

Right click it and see if it set to move and size with cells, if so uncheck and see if that solves your problem.

 

[mortgageman]

Right click it and see if it set to move and size with cells, if so uncheck and see if that solves your problem.

When I right click the text box, I don't think I get the menu to which I gather you are refering.

Gene Klein

 

[Nalani]

I'm assuming this is a Textbox on a UserForm.

Looks like you're missing a .

I tested with this:

Private Sub UserForm_Click()
    With Me
        .TextBox1.Top = 30
        MsgBox .TextBox1.Top
        .TextBox1.Height = 160
    End With
End Sub

Works for me

 

[mikerickson]

ADVERTISEMENT

have you tried adding a

UserForm1.Repaint

 

[Nalani]

I just reread you post and see that you were trying to add the values of Top & Height of TB30 to get the height of TB1.

I tried this and it also works for me.

Private Sub UserForm_Click()
    With Me
        .TextBox1.Top = 30
        MsgBox .TextBox1.Top
        .TextBox1.Height = TextBox30.Top + TextBox30.Height
      '  .TextBox1.Height = 160
    End With
End Sub

Of course it only works when the UserForm is active. If you are trying to adjust TB1 in the VBE, that is another issue. Not sure what you want to accomplish.

 

[Nalani]

ADVERTISEMENT

Okay... Just took another Re-Read and see in your Title:

Help! textbox height can't even be manually changed!!!!

First of all is it a Worksheet or UserForm Textbox?

What exactly have you tried manually to change it? (without code)

 

[p45cal]

Autosize set to True?

 

[mortgageman]

I'm assuming this is a Textbox on a UserForm.

Looks like you're missing a .

I tested with this:

Private Sub UserForm_Click()
    With Me
        .TextBox1.Top = 30
        MsgBox .TextBox1.Top
       .TextBox1.Height = 160
    End With
End Sub

Works for me

That stupidity was clearly part of my problem.

Gene Klein

 

[mortgageman]

Autosize set to True?

I am honestly not sure what this means.

Gene Klein