Dostęp do elementów kolekcji CommandBars

Aby dostać się bezpośrednio do elementów kolekcji można podać numer obiektu w kolekcji lub jego nazwę. Jeżeli używana jest nazwa paska, należy pamiętać, aby napis identyfikujący pasek narzędziowy był identyczny z nazwą paska (program rozróżnia małe i duże litery. Dlatego też, aby uniknąć przypadkowych pomyłek dobrze jest zdefiniować stałą.

 

const nazwaPaska1 "Pasek 1"

Dim t As MsoBarType

 

t = CommandBars.Item(1).Type

t = CommandBars.Item("Pasek 1").Type

lub

t = CommandBars.Item(nazwaPaska1).Type

 

 

Ponieważ metoda Item jest domyślną dla obiektu, nie jest konieczne podawanie jej w sposób jawny.

t = CommandBars(1).Type

t = CommandBars("Pasek 1").Type

lub

t = CommandBars(nazwaPaska1).Type