将标签宽度调整为文本

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

Answer 1

控制有两种口味。 标签的ActiveX版本具有AutoSize属性。 例如，使用Sheet1名为Label1的ActiveX标签控件

 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 

会自动调整宽度以适应。