使标签宽度适应文本

Question

我基本上以编程方式生成许多带有从文本文件中读取的文本的标签，所以我想知道如何以编程方式使标签的宽度适应其文本。

Answer 1

控件有两种风格。标签的 ActiveX 版本有一个AutoSize属性。例如，用的ActiveX标签控件命名Label1的Sheet1

Private Sub test()
    Sheet1.Label1.WordWrap = False
    Sheet1.Label1.AutoSize = True
    Sheet1.Label1.Caption = "This is a lot of text to put in a label"
End Sub

将自动调整宽度以适合。