Active X Controls

[Stubby]

Hi

Is it possible to add an activeX control ie a check box to a specific cell? I have recorded a macro that places one on the sheet and the code looks like this

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=643.5, Top:=236.25, Width:=108, Height:= _
19.5).Select

I assume that the Left and Top items are what controls where it goes. Any help would be much appreciated.

 

[VoG]

This will place the check box in C5

Sub test()
Dim mt As Integer, ml As Integer
With Range("C5")
    mt = .Top
    ml = .Left
End With
ActiveSheet.OLEObjects.Add ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=ml, Top:=mt, Width:=108, Height:= _
19.5
End Sub

 

[Stubby]

Thats Great! it worked a treat.

Many thanks