Setting a Font in ActiveX Declaration

[MrChuck]

Does anyone know what the code should look like to set the initial font (font, style, and size) for an activeX controll. I know to set other properties it is as easy as:

Selection.Object.MultiLine = True
Selection.Object.ScrollBars = 2

The font however seems a bit trixier. Thanks in advance for the help

PS. How do you spell tricksy er?
PPS. How do you spell tricksy?

 

[Norie]

I would suggest you move away from using Selection when working with your controls.

It does work and the alternatives can be a little more trixxy.

What type of controls are you actually dealing with here?

 

[MrChuck]

I am currently working on a macro that will create a textbox and button in the active cell range when it runs. Everything is finally starting to come together but for some reason unknown to me the macro creates atleast two or three different fonts for the caption and inputs depending on what row I put them in. I guess this is not the most important thing in the world but it does make the projct look rather sloppy.

 

[Norie]

Can you post the code you are using to create these controls?

 

[MrChuck]

This is what I've got so far, (there are also some if statements above, and a codemodule bit below).

Dim ole As OLEObject
 
    Set ole = ActiveSheet.OLEObjects.add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, _
        Width:=ActiveCell.Width, Height:=ActiveCell.Height)
        With ole
            .LinkedCell = ActiveCell.Address
            .Object.MultiLine = True
            .Object.ScrollBars = 2
            .Object.EnterKeyBehavior = True
            .Left = ActiveCell.Left
            .Top = ActiveCell.Top
            .Placement = xlMoveAndSize
            .PrintObject = True
        End With
 
    ActiveCell.Offset(0, -1).Select
 
    Set ole = ActiveSheet.OLEObjects.add(ClassType:="Forms.ToggleButton.1", Link:=False, _
        DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, _
        Width:=ActiveCell.Width, Height:=ActiveCell.Height)
 
        With ole
            .LinkedCell = ActiveCell.Address
            .Object.Caption = "New" & vbNewLine & "-->"
            .Left = ActiveCell.Left
            .Top = ActiveCell.Top
            .Placement = xlMoveAndSize
            .PrintObject = True
        End With