checkbox linked to a cell

  • Thread starter Thread starter Greg
  • Start date Start date
G

Greg

Hello,
I am programatically trying to add a checkbox.
but it looks like you have to give pixal locations

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=111.75, Top:=197.25, Width:=85.5, Height
_
:=21.75).Select


is there a way to add a checkbox and give the cell row / column?
 
One way:

Option Explicit
Sub testme()

Dim myCell As Range
Dim OLEObj As OLEObject

Set myCell = ActiveSheet.Range("b3")

With myCell
Set OLEObj = .Parent.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
Link:=False, DisplayAsIcon:=False, _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With

End Sub
 
Back
Top