Utworzenie paska narzędziowego przy górnej krawędzi okna

Dim bar As CommandBar

Set bar = CommandBars.Add("Pasek 1", msoBarTop)

 

Metoda Add służy do dodania nowego paska narzędziowego (również menu kontekstowego) do okna i jednocześnie do kolekcji CommandBars. Ma ona dwa opcjonalne parametry: Name i Position. Name jest nazwą paska narzędziowego (pojawia się, gdy pasek zostanie przeciągnięty z pozycji przy brzegu okna). Jeżeli nazwa nie zostanie podana pasek narzędziowy uzyska nazwę domyślną z kolejnym numerem. Domyślną wartością parametru Position jest msoBarPopup, co powoduje utworzenie menu kontekstowego. Dlatego też by utworzyć pasek narzędzi należy wyspecjalizować jedną z wartości: msoBarLeft, msoBarTop, msoBarRight, msoBarBotton, które określają położenie paska względem okna. Jeżeli pasek narzędziowy (lub menu kontekstowe) o takiej nazwie już istnieje w danym oknie, obiekt nie zostanie utworzony. Jeżeli nie wiemy, czy taki pasek już istnieje należy to sprawdzić.