Kolekcje dla dowolnego typu w VBA

0

Cześć,

Może przedstawię bezpośrednio mój problem:

W Excelu tworzę kilka Toggle Buttonów. Chcę dodać je do kolekcji a potem modyfikować ich property w pętli.

Nie wiem za bardzo jak dodawać je do kolekcji:


    Dim Toggles As Collection

    Set Toggles = New Collection
    Toggles.Add (ToggleButton1)    
    Toggles.Add (ToggleButton2)
    Toggles.Add (ToggleButton3)

    
    For Each tog In Toggles
    tog.Caption = 123
    Next

Niestety nie przechodzi to i program się wydupia tu z błędem Object required...

    tog.Caption = 123
 
0

Prawie dobrze:


    Dim Toggles As Collection

    Set Toggles = New Collection
    Toggles.Add Item:=ToggleButton1
    Toggles.Add Item:=ToggleButton2
    Toggles.Add Item:=ToggleButton3

    
    For Each tog In Toggles
    tog.Caption = 123
    Next

1 użytkowników online, w tym zalogowanych: 0, gości: 1