checkbox maken

[Justme47]

Wanneer ik via de werkset besturingselementen een checkbox maak dan kan ik daar ook de programma code weergeven en wijzigen.

Ik heb het checkbox maken met de macro recorder opgenomen met het volgende resultaat:

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

In deze code is echter niet naar de macro verwezen die bij de checkbox hoort terwijl die wel wordt gemaakt bij het aanmaken van de checkbox:

Private Sub CheckBox1_Click()
Range("A2").Select
End Sub

Kunt u mij helpen om dit in VBA code voor elkaar te krijgen?

 

[Warme bakkertje]

Sub Macro1()
With ActiveSheet
        .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=96.75, Top:=24.75, Width:=48, Height:=27).Select
    Dim WBcm As CodeModule, i As Long
    Set WBcm = ActiveWorkbook.VBProject.VBComponents(.CodeName).CodeModule
    With WBcm
        i = .CreateEventProc("Click", "Checkbox1") + 1
        .insertlines i, " Application.GoTo [A2]"
    End With
    End With
End Sub

Niet vergeten van bij Extra >> Verwijzingen "Microsoft Visual Basic for Applications Extensibility 5.3" aan te vinken alvorens deze code te gebruiken.

 

[Justme47]

Bedankt Warme bakkertje voor de reactie
De macro heb ik opgenomen met excel Office 2003
de verwijzing"Microsoft Visual Basic for Applications Extensibility 5.3" is aangevinkt

De macro werkt wel maar er komt de foutmelding 1004 met als tekst "Toegang tot het Visual Basic project op programmeerniveau is niet betrouwbaar"

Hoe kan dit worden opgelost?

gr. Gerhard

 

[Warme bakkertje]

Extra >> Macro >> Beveiliging >> Betrouwbare bronnen >> Toegang tot Visual Basic-project vertrouwen aanvinken

 

[Justme47]

Het werkt!
Bedankt Warme bakkertje.

Nog een vraag: klopt het dat wanneer deze macro op een andere pc uitgevoerd wordt dat dan ook de bovengenoemde beveiligingen weer moeten worden aangevinkt?

groet,
Gerhard

 

[Warme bakkertje]

Uiteraard

 

[Justme47]

alles duidelijk,
bedankt voor de support