checkbox centered in cell

[ranswert]

I have the following code to add a checkbox in a cell and center it top to
bottom:

Set chk = cell.Parent.CheckBoxes.Add(cell.Left, cell.Top, 12, cell.Height)
chk as Excel.checkbox
cell as Range

This code works fine in one procedure, but in another one the checkbox is in
the bottom of the cell.

Any Ideas what to do to fix this?
Thanks

 

[Dave Peterson]

Depending on what the size of the cell is, you could play around with something
like:

Dim chk As CheckBox
Dim cell As Range

Set cell = ActiveSheet.Range("E7")

With cell
Set chk = .Parent.CheckBoxes.Add(Left:=.Left, _
Top:=.Top + (.Height / 4), _
Width:=.Width, _
Height:=.Height / 4)
End With

 

[ranswert]

Thanks
I'll give that a try.

Any idea it works in one procedure, but not another?

 

[Dave Peterson]

Maybe 12 is too big.

Thanks
I'll give that a try.

Any idea it works in one procedure, but not another?

 

[ranswert]

Thanks

Maybe 12 is too big.