Setting Userform Label width to fit text

[bradyboyy88]

I need to set the width of the label to auto fit the caption text. So from my research the text is in points and the width is in twips. So I need to get the length of the text string in twips to set the label width. Any ideas?

 

[Akuini]

Try something like this.
Label1.Width = 500 is just to make sure the text won’t get wrapped to multiple lines.
Type some words in textbox1 then hit the command button

---

Please use Code Tags when posting a code. Like this: [CODE ]Your Code Here[/ CODE]

[B][COLOR=Royalblue]Private[/COLOR][/B] [B][COLOR=Royalblue]Sub[/COLOR][/B] CommandButton1_Click[B]()[/B]
    Label1.AutoSize [B]=[/B] [B][COLOR=Royalblue]False[/COLOR][/B]
    Label1.Width [B]=[/B] [B][B][COLOR=crimson]500[/COLOR][/B][/B]
    Label1.Caption [B]=[/B] TextBox1
    Label1.AutoSize [B]=[/B] [B][COLOR=Royalblue]True[/COLOR][/B]
    Label1.Height [B]=[/B] [B][B][COLOR=crimson]20[/COLOR][/B][/B]
[B][COLOR=Royalblue]End[/COLOR][/B] [B][COLOR=Royalblue]Sub[/COLOR][/B]

---

 

[bradyboyy88]

Did the trick. Thanks!

 

[Akuini]

You're welcome & thanks for replying.

---

And you can also click ‘Thank you for posting this’ and ‘Like this post’ button in the post that you like.