Edit Form Control Label Caption on VBA

问题

Trying to edit the text of a form control label named lblsearchreminder and make sure that the font is Arial and size 20. I am pulling the edited text from an ActiveX textbox1 and trying to make that the caption of the label. If anyone has any insight I would greatly appreciate it.

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

回答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

Unfortunately you can't manipulate the font-size/name, color or style of a Form Control Label. If you notice the formatting items have been "grayed out" in the Font group on the Excel Ribbon.

To set a Text is easy

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

But you cannot do (Even though Intellisense allows it)

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

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

I would recommend using a TextBox shape or an ActiveX Label instead.

Similarly you cannot change the font using

lblsearchreminder.TextFrame.Characters.Font.Size= 20

回答2:

I don't think you're using a Form Control. TextBox1 would be the default name for an ActiveX control, which would be coherent with using .OLEObject.Object to retrieve it.

Declare a MSForms.TextBox variable for it.

Dim box As MSForms.TextBox

Now assign it to the .OLEObject.Object:

Set box =  Worksheets("User Interface").OLEObjects("TextBox1").Object

If the sheet "User Interface" exists in ThisWorkbook at compile-time, give it a code name (F4; set the (Name) property to e.g. UserInterfaceSheet) - then you can use that identifier directly, without needing to pull the worksheet from the Worksheets collection:

Set box = UserInterfaceSheet.OLEObjects("TextBox1").Object

Now you have an early-bound object reference to play with, you'll have IntelliSense to guide you. MSForms.TextBox does not have a .Characters property. It does have a .Font property though, so you can start exploring that:

Object Browser showing members of MSForms.TextBox

So the Font property is an object of type NewFont; using the Object Browser (F2) you can browse its members:

Object Browser showing members of MSForms.NewFont

Thus:

box.Font.Name = "Arial"
box.Font.Size = 20

Should do it.

Watch out for misleading names and prefixes: lblsearchreminder reads like you're looking at a MSForms.Label control, not a TextBox. txtSearchReminder would be more appropriate, or if you prefer control-agnostic names, SearchReminderBox works as well.

Also Error is a function from the VBA.Conversion module, that you are shadowing here.

来源：https://stackoverflow.com/questions/51713077/edit-form-control-label-caption-on-vba

标签

vba

excel