Question

我在Word VBA中有一个带有多个标签的表单。单击按钮时，我想通过使用字符串调用标签字体将标签字体更改为粗体。

示例：

Private Sub changeFontButton_Click()
    Dim tagStr as String
    tagStr = "tag1"

    labelWithTagName(tagStr)
    labelWithTagName.Font.Bold=True
End Sub

Answer 1

MSForms对象模型不支持使用标记值作为寻址控件的索引。您只能使用Name属性执行此操作：

Me.Controls("NameOfLabel").Font.Bold = True

如果你真的想/需要使用tag属性，那么你必须循环表单上的控件

Dim ctl As MSForms.control
Dim lbl As MSForms.Label

For Each ctl In Me.Controls
    If ctl.Tag = "rs" Then
        Set lbl = ctl
        lbl.Font.Bold = True
    End If
Next

使用其标记将表单标签字体更改为粗体

1 个答案: