vba - 使标签宽度适应文本

Question

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

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

将自动调整宽度以适合。