如何使用 Excel VBA 在工作表上引用 label

Question

我想以编程方式引用工作表（不是用户表单）上有一系列标签。

具体来说，我想在我选择的任何 label 中的文本下划线。

我正在努力寻找正确的语法，因为所有示例都引用了用户表单。 我想如果我创建了一个 label 变量，我可以将 label 分配给这个变量，然后将其下划线属性设置为 true。

沿着： -

Dim lbl as Label

Set lbl = ActiveSheet.Labels("lblTest")  

(or Set lbl = ActiveSheet.Controls("lblTest"))

lbl.Font.Underline = True

但我找不到正确的语法。

21 年 10 月 1 日更新

我现在可以使用此代码

  Dim lbl As MSForms.Label
  
  Set lbl = ActiveSheet.OLEObjects("lblTest").Object

  lbl.Font.Underline = True

使用.Object参考似乎可以让您获得 label 的任何属性。

我修改了这篇文章中的代码：-

编辑表单控件 Label VBA 上的标题

Answer 1

您需要使用 Shapes 集合。 这个链接应该让你走上正确的轨道：

文本框的下划线属性不像其他的那样工作