Paski i przyciski - VBA

Aby dodać nowy pasek zadań:

Sub dodaj_pasek()

Dim NewToolbar As CommandBar
Dim NewButton As CommandBarButton

' usuwa pasek jeżeli istnieje
    On Error Resume Next
    Application.CommandBars("NowyPasek").Delete
    On Error GoTo 0

' dodaje pusty pasek
    Set NewToolbar = Application.CommandBars.Add _
    (Name:="NowyPasek", temporary:=True)
    NewToolbar.Visible = True

' dodaje przycisk
    Set NewButton = NewToolbar.Controls.Add _
    (Type:=msoControlButton)
    NewButton.FaceId = 1015
    NewButton.Caption = "NowyPrzycisk"
    NewButton.OnAction = "mojemakro"

    Set NewButton = NewToolbar.Controls.Add _
    (Type:=msoControlButton)
    NewButton.FaceId = 160
    NewButton.Caption = "KolejnyNowyPrzycisk"
    NewButton.OnAction = "m0jemakro2"

'pozycja paska
    NewToolbar.Position = msoBarTop

End Sub

FaceID - numer ikony w zestawie ikon excela - patrz więcej ikon.

Kolejna procedura usuwa nasz pasek:
 

Sub usun_pasek()

'usuwa pasek
    Application.CommandBars("NowyPasek").Delete

End Sub

---