VBA Code to add Option Buttons to ActiveX Frame

[fm11532]

Hi All,

I want to write a VBA code that will place ActiveX Frame directly onto the worksheet and then add 3 Option Buttons from Toolbox into that frame.

I could not find an answer searching through the web... Also when trying to record macro and see the code it did not record placing the buttons from the toolbox or any formatting (color, caption, etc.) via properties...

When formatting the buttons it would be useful if the selected radio button would have different color, bold font, etc.

Would you please provide some examples of code...

Many thanks,
Adam

 

[fm11532]

Anyone guys ...?

 

[MickG]

It does not appear anyone knows the code for that.
Why not create the frame and Option buttons and then hide/unhide them.
You can run code to alter the Frame Option buttons format once they are created.

 

[Norie]

This will add an ActiveX frame to Sheet1 and add 3 option buttons to the frame.

Dim frm As Object
Dim opt As Object
Dim I As Long

    Set frm = Worksheets("Sheet1").OLEObjects.Add("Forms.Frame.1")
    
    For I = 1 To 3
        Set opt = frm.Object.Controls.Add("Forms.OptionButton.1")
        opt.Caption = "Option" & I
        opt.Top = 5 + (I - 1) * 25
    Next I

 

[MickG]

Well done Norie !!
Another one for the Library !!!!

 

[fm11532]

Guys ! You are awesome !! This excactly does the trick needed. Short and simple.
I have really been searching through the web for this and to no avail...
Many thanks for all your time and help.