Иконки MS Office 2007

иконки приложений или панелей инструментов?

В каком файле они хранятся, я не знаю, но существует список этих значков. Я его извлёк и сделал в виде текстового файла. Сохранить можно так:

Sub SaveToFiles()
  Dim FileNum As Byte
  Dim id As String
  FileNum = FreeFile
  Open "c:\Users\viter.alex\Desktop\Office 2007 Ribbon Pictures ID.txt" For Input As #FileNum
  While Not EOF(FileNum)
    Line Input #FileNum, id
    SavePicture Application.CommandBars.GetImageMso(id, 16, 16), "c:\Users\viter.alex\Desktop\Icons\" & id & ".jpg"
  Wend
  Close #FileNum
End Sub

Только подставьте свои пути к файлам и каталогу для сохранения. Кроме 16×16 можно указать 32×32

Так я же из xml содержимого этого файла ID иконок и брал
Что значит вживую?

Я же дал пример кода. Всё, что нужно знать, это ID контрола, значок которого ты вытягиваешь. Дальше делай с ним, что хочешь. Функция GetImageMso возвращает объект IPicture, который можно поместить на любую форму, конвертировать в любой формат.

Почему не идентичную? Всё совпадает

Посмотрел. Кнопка галереи с содержанием:

значок с неё, извлечённый макросом

Единственное отличие, что нет прозрачности. Но её можно сохранить, сохраняя в формат png, правда для этого придётся задействовать функции GDI+, поскольку SavePicture может работать только с jpg или bmp.
К сожалению, готового примера у меня нет, но есть общий пример работы с изображениями, а именно: сохранение в разные форматы, добавление/удаление прозрачности и т.д.
Пример не для VBA, а для VB6, но его можно адаптировать. Неопытному человеку там мало что будет понятно. Если интересно, я пришлю вам его по почте.

Оказывается тема так и не закрыта! Хотел по-быстрому сделать пару иконок, а убил час на поисковике. Оригинальных иконок ленты Word так и не нашел, только коммерческие. Все еще требуются качественные изображения в формате png, размеры хотя бы 16 и 32, лучше конечно все.