Change font and point size in an Active-X Textbox

[Miles R]

I have an Active-X Textbox on one of my forms (don't ask why I am not using an ordinary textbox in this case).
I am trying to change the font and point size, but there does not seem to be a Font field on the properties sheet.
I am sure this must be simple, but can't figure it out and have googled without success. All answers seem to relate to Excel.

Anyone know how to do this.



p.s. The colours seem a bit odd as well e.g. BackColor = -2147483643 with no option to change. However, I can change this to what I want from VBA, so this is not a problem.

[señor_sriracha]

I have an Active-X Textbox on one of my forms

Is this the Microsoft Forms 2.0 TextBox?

    Dim f As Object


    Set f = New NewFont
    f.Name = "Consolas"
    f.Size = 12
    Set TextBox1.Font = f

[Miles R]

Thanks for the reply. When I created the Active X text box, I used the Active X control which was called Microsoft Forms 2.0 TextBox
The Property Sheet shows it as Active X Control.

The above code does not seem to work for this type of text box. It says property not supported and there is no Font option in the properties like for a normal textbox.
If there were, I would just have set the Font at design time and would not need any code.

p.s. Tried to upload an image of the Properties Sheet, but it would not work, nor could I just cut and paste and image. Seems to have disappeared.

[señor_sriracha]

It says property not supported and there is no Font option in the properties like for a normal textbox.
If there were, I would just have set the Font at design time and would not need any code.

There are no provisions to set the font at design time.
It must be done through code.

Take a look at your Object Browser (Press [F2] in the VBE).

Look at the TextBox class of the MSForms Library for details.

[Welshgasman]

You need to add images or any files as attachments.

[Miles R]

Thanks for that, although I wonder why there is the option to Insert Image and Copy and Paste. When I tried this, it looked like it had worked - the image briefly appeared below the text, but when posted it had gone.
However, this is by-the-by for the posted question.

[Miles R]

Thanks again the for the reply. Yes it does look like there are no provisions for this at design time and I can see the Font option you have shown above in the Object Browser, but I am not convinced this applies to an Active-X textbox.
When I try with the code you supplied

    Set f = New NewFont
    f.Name = "Consolas"
    f.Size = 12
    Me.txtSubbreedingRange.Font = f

I get the error

This is on the Me.txtSubbreedingRange.Font = f line

[señor_sriracha]

    Me.txtSubbreedingRange.Font = f

The line should be:

SET Me.txtSubbreedingRange.Font = f

[Miles R]

Ah - I did not spot the SET bit - must have assumed it was the same for a normal text box.

Great, that works, I'll make this thread as solved.