vba - 在 VBA 上编辑表单控件标签标题

Question

试图编辑名为 lblsearchreminder 的表单控件标签的文本并确保字体为 Arial 且大小为 20。我正在从 ActiveX 文本框 1 中提取已编辑的文本并尝试将其作为标签的标题。如果有人有任何见解，我将不胜感激。

Sub btnAltCustomSearch_Click()

    Dim strTextBox As String

    If Worksheets("User Interface").OLEObjects("TextBox1").Object.Value = "" Then
        ErrorX.Show
    Else
        strTextBox = Worksheets("User Interface").OLEObjects("TextBox1").Object.Value
        Worksheets("Muscle Wasting Database").Shapes("lblsearchreminder") = vbCrLf & "Disease: All" & vbCrLf & vbCrLf & "Keyword: " & strTextBox
        lblsearchreminder.Object.Characters.Text = "Arial"
        lblsearchreminder.Object.Font.Size = 20

    End If

End Sub

Answer 1

Yes the textbox1 is an ActiveX textbox control, but I will ideally use a Form Control label. So I am trying to pull the typing from the ActiveX textbox and use it in the Form Control label – Thor Nagel 3 hours ago

不幸的是，您无法操作表单控件标签的字体大小/名称、颜色或样式。如果您注意到 Excel 功能区上的字体组中的格式项目已“变灰”。



设置文本很容易

Dim lblsearchreminder As Shape
Set lblsearchreminder = Sheet1.Shapes("Label 1")
lblsearchreminder.TextFrame.Characters.Text = "Hello"

但是你不能这样做( 即使 Intellisense 允许 )

lblsearchreminder.TextFrame.Characters.Font.Name = "Arial"

或者

lblsearchreminder.TextFrame2.TextRange.Characters.Font.Name = "Arial"

我建议使用 TextBox形状或 ActiveX Label反而。

同样，您不能使用更改字体

lblsearchreminder.TextFrame.Characters.Font.Size= 20