Captions and Check Boxes [Error]

[ronnockoch]

Hello all,

Quick question.
I'm writting a VBA code for a project i'm working on and I've exaughsted my google searching trying to figure this out.

The problem I'm having is this.

ActiveSheet.OLEObjects.Add ClassType:="Forms.CheckBox.1", _    Link:=False, _
    DisplayAsIcon:=False, _
    Left:=Range("A1").Left, _
    Top:=Cells(1, 1).Top, _
    Width:=108, _
    Height:=19.5, _
    Caption:=""

This code is throwing an error for me when running and it's on the Caption:="" line. The rest of the code runs flawlessly.
The error I get is: Run Time error 448: Named Argument not Found

From my quick research on this problem, Im starting to believe that I can't change caption from my side and it would have to be done manually.


Alternatively, a code snippet which would create check boxes only (no caption by default) would also be nice

Let me know if you have any other questions I can try and answer

 

[VoG]

Try

Sub test()
Dim cb As Object
Set cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
    DisplayAsIcon:=False, _
    Left:=Range("A1").Left, _
    Top:=Cells(1, 1).Top, _
    Width:=108, _
    Height:=19.5)
cb.Object.Caption = vbNullString
End Sub

 

[ronnockoch]

Try

Sub test()
Dim cb As Object
Set cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
    DisplayAsIcon:=False, _
    Left:=Range("A1").Left, _
    Top:=Cells(1, 1).Top, _
    Width:=108, _
    Height:=19.5)
cb.Object.Caption = vbNullString
End Sub

VoG,

that worked perfectly.
I went one step further and tested my next question (value) and it worked as well.

Thanks

Could you give me a quick explanation as to why the caption property can't be changed like above?

Thanks again,

 

[VoG]

only that OLE Objects are a bit weird and some of the properties apply to the OLEObject itself and some to the OLEObject.Object.

 

[ronnockoch]

only that OLE Objects are a bit weird and some of the properties apply to the OLEObject itself and some to the OLEObject.Object.

Fair enough.
I feared that. Forms are weird sometimes.