VBA Excel : Check-box

[belele]

devo creare una check-box da una macro VBA in un foglio Excel, ma non ci riesco

naturalmente ci riesco da excel passando da:
Vsual Basic | Strumenti di Controllo | Modalita Progetazione | trascinando la check-box ...

è molto importante attivare la "Modalita Progetazione" ma registrando una macro con queste azioni non registra l'attivazione di questa opzione e senza non funziona

--- questa è la registrazione della creazione della check-box---
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=647.25, Top:=119.25, Width:=6, Height:=6) _
.Select
----------------------------------

ringrazio fin d'ora x qualsiasi aiuto, anche un link in cui studiare...
ciao
Gabriele

[MarcoGG]

[VBA Excel] CheckBox sarebbe un titolo migliore ( oggi sono più cattivi del solito i mod... ).

Farei così :

    Dim oleObj As OLEObject
    Set oleObj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
    DisplayAsIcon:=False, Left:=Range("A1").Left, _
    Top:=Range("A1").Top, Width:=150, Height:=21)
    
    With oleObj.Object
        .Caption = "Sono Una CheckBox"
        .Font.Size = 12
        .Font.Italic = False
        .Font.Bold = True
    End With

In questo modo usi riferimenti relativi ad esempio alla cella [A1].
Il blocco With che segue ti permette di specificare altre proprietà...