|
VBA > Paski narzędziowe w oknach VBA > Zarządzanie paskami narzędziowymi > Enumeracja elementów kolekcji CommandBars | | Drukuj |
Aby dostać się do wszystkich elementów kolekcji CommandBars możemy użyć konstrukcji for each :
Dim bar As CommandBar
For each bar in CommandBars
'akcja na obiekcie bar np.
Msgbox bar.Name
Next bar
lub pobrać liczbę elementów kolekcji i odwołać się kolejno do wszystkich elementów:
Dim i as Integer
For i = 1 to CommandBars.Count Step 1
MsgBox CommandBars(i).Name
Next i