Enumeracja elementów kolekcji Controls

Analogicznie jak w przypadku kolekcji CommandBars aby dostać się do wszystkich elementów kolekcji Controls możemy użyć konstrukcji "for each":

 

Dim bar as CommandBar

Dim but as CommandBarButton

 

Set bar = CommandBars("Pasek 1")

If bar is Nothing Then

'Pasek nie istnieje

End If

 

For each but in bar.Controls

'akcja na obiekcie but np.

Msgbox but.Caption

Next but

 

lub pobrać liczbę elementów kolekcji i odwołać się kolejno do wszystkich elementów:

 

Dim i as Integer

For i = 1 to bar.Controls.Count Step 1

MsgBox bar.Controls (i).Caption

Next i