VBA > Paski narzędziowe w oknach VBA > Zarządzanie przyciskami na paskach narzędziowych > Enumeracja elementów kolekcji Controls | | Drukuj |
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