Иконки для напели инструментов

Если у кого есть иконки для напели инструментов, обычной как в офисе (открыть, сохранить, список, жирный, курсив, абзац и всё такое...)
может отдельно или уже в проекте каком-то, или где скачать можно, желательно в формате PNG
Поделитесь пожалуйста, а то в поиске одни и те же наборы везде, но стандартной кнопки например "полужирный" не найти

Заранее спасибо

Цитата mamonoff @ 01.11.11, 19:10

стандартной кнопки например "полужирный" не найти

Таке выдирай её прямо из ресурсной бюиблиотеки.

создать меню просмотра в екселе можно так:

Sub CreateMenuFaceID()
Dim maxGroup
Dim maxCount
Dim N
Dim J
Dim I
Dim MenuItem2
Dim II
    ' создание меню ЗНАЧКИ с образцами кнопок панели инструментов
    Dim NewMenu As CommandBarPopup, MenuItem As CommandBarControl, Submenuitem As CommandBarButton
    
    Call DeleteMenuFaceID
    Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
    NewMenu.Caption = "Значки": maxCount = 40: maxGroup = 8: N = maxGroup * maxCount
    For J = 0 To 20
        Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup)
        With MenuItem: .Caption = J * N + 1 & " - " & (J + 1) * N: .BeginGroup = True:: End With
 
        For I = 0 To maxGroup - 1
            Set MenuItem2 = MenuItem.Controls.Add(Type:=msoControlPopup)
            With MenuItem2: .Caption = 1 + J * N + maxCount * I & " - " & J * N + maxCount * (I + 1): End With
            For II = J * N + 1 + maxCount * I To J * N + maxCount * (I + 1)
                Set Submenuitem = MenuItem2.Controls.Add(Type:=msoControlButton): DoEvents
                With Submenuitem: .Caption = "FaceId = " & II: .FaceId = II: End With
            Next II
        Next I
    Next J
End Sub

По традиции, для начала на: http://iconfinder.net/