Center Checkbox

[ranswert]

How do I write a procedure that centers a checkcox vertically in a cell?

 

[sebastienm]

Hi,
Try something like:

Dim cell as Range
Dim chk as Excel.Checkbox

Set cell=activecell
Set chk = wsh.CheckBoxes.Add(cell.Left + 0.3 * cell.Width, cell.Top,
cell.Width, cell.Height)
chk.Height = cell.Height - 1.5

 

[ranswert]

I copied the code that you suggested and I got a run time error object
required message. This is the code I entered:

Sub cbox()
Dim cell As Range
Dim chk As Excel.CheckBox
Set cell = ActiveCell
Set chk = wsh.CheckBoxes.Add(cell.Left + 0.3 * cell.Width, cell.Top,
cell.Width, cell.Height)
chk.Height = cell.Height - 1.5

End Sub

Thanks

 

[sebastienm]

You're right, wsh is not defined. So, instead of
Set chk = wsh.CheckBoxes....
use
Set chk = cell.Parent.CheckBoxes....

 

[ranswert]

Works great
Thank you

You're right, wsh is not defined. So, instead of
Set chk = wsh.CheckBoxes....
use
Set chk = cell.Parent.CheckBoxes....
--
Regards,
Sébastien
<http://www.ondemandanalysis.com>
<http://www.ready-reports.com>