Add checkbox in cells

[paddydive]

Hi,

I have below code to add checkboxes in cell F1 to F5, the code works perfectly but it does not align the checkboxes.

Sub de()
Dim chkbx As CheckBox
i = 1
For Each cell In Range("F1:F5")
    Set chkbx = ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Height, cell.Width)
    With chkbx
        .Caption = "Day" & i
    End With
i = i + 1
Next
End Sub

Please help, i want these checkboxes to fit properly in cells, but now they are overlapping on another.

 

[Domenic]

Try...

Set chkbx = ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Width, cell.Height)

 

[paddydive]

Thanks Domenic,

Was it just bcoz I changed the sequance of width and Height ?

Will appreciate help for one more thing... which preferance should i choose in option preferances so that i can view the auto suggestions for activex and form control object. currently my machine does not show the intellisense for these objects like dropdown, checkboxes etc.

 

[Domenic]

Thanks Domenic,

You're very welcome!

Was it just bcoz I changed the sequance of width and Height ?

Yes.

Will appreciate help for one more thing... which preferance should i choose in option preferances so that i can view the auto suggestions for activex and form control object. currently my machine does not show the intellisense for these objects like dropdown, checkboxes etc.

Have a look here...

http://www.tushar-mehta.com/excel/vba/vba-embedded or linked objects.htm

 

[paddydive]

Thanks again....

But it was not mentioned there, i want to know which Object library should be active in Tools Preferances to show intellisense for activex and form control objects.

 

[Domenic]

Forms controls reference the Microsoft Excel Object Library. These controls are native to Excel, and the reference is automatically set by default. This reference cannot be removed.

ActiveX controls reference the Microsoft Forms Object Library. Note that this reference is automatically established by Excel once a control is inserted into a worksheet or userform.