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

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 wrote:
>
> 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

Thanks
I'll give that a try.

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

"Dave Peterson" wrote:

> 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 wrote:
> >
> > 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
>

Maybe 12 is too big.



ranswert wrote:
>
> Thanks
> I'll give that a try.
>
> Any idea it works in one procedure, but not another?
>
> "Dave Peterson" wrote:
>
> > 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 wrote:
> > >
> > > 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
> >

--

Dave Peterson

Thanks

"Dave Peterson" wrote:

> Maybe 12 is too big.
>
>
>
> ranswert wrote:
> >
> > Thanks
> > I'll give that a try.
> >
> > Any idea it works in one procedure, but not another?
> >
> > "Dave Peterson" wrote:
> >
> > > 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 wrote:
> > > >
> > > > 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
> > >
>
> --
>
> Dave Peterson
>