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... :D ).

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à... ;)