Więcej ikon pasków zadań

Excel posiada znacznie więcej ikon niż wynika to ze standardowych pasków zadań i z zestawu ikon w oknie "dostosuj pasek zadań". Aby się do nich dobrać potrzebujemy makro (procedura była gdzieś dawno temu wyszperana, niestety nie pamiętam gdzie, stąd przepraszam, że nie podaję źródła):

Sub ShowFaceIDs()
    Dim NewToolbar As CommandBar
    Dim NewButton As CommandBarButton
    Dim i As Integer, IDStart As Integer, IDStop As Integer

' usuwa pasek nowych ikon o ile istnieje
    On Error Resume Next
    Application.CommandBars("FaceIds").Delete
    On Error GoTo 0

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

' następujące wartości należy zmienić w zależności od potrzeb
    IDStart = 1
    IDStop = 500

    For i = IDStart To IDStop
        Set NewButton = NewToolbar.Controls.Add _
        (Type:=msoControlButton, ID:=2950)
        NewButton.FaceId = i
        NewButton.Caption = "FaceID = " & i
    Next i
    NewToolbar.Width = 600
    Application.CommandBars("FaceIds1").Visible = False

End Sub

Procedura tworzy pasek o nazwie "FaceIds" - teraz możemy sobie kopiować ikonki przycisków.

Efekt dla zestawu pierwszych 600 ikon jest następujący:

Imponujące! Ja doszedłem do 3600. Aby pooglądać sobie kolejne zestawy należy manipulować wartościami IDStart i IDStop w kodzie procedury. Polecam jednak zawsze pozostać z liczbą 600 ikon w zestawie (czyli wartości IDStart i IDStop odpowiednio powinny przybierać wartości 1 i 600, 601 i 1200, itd.) - już taki pasek tworzy się dość długo, a co dopiero zawierający znacznie więcej elementów!

Dodam jeszcze, że wiele ikon się powtarza, a niektóre są "puste".

---