ник: KrukVN
вот, еще сделал еще один варварский метод :) для определения id иконки
создает bmp-файлы с именем = ID иконки
Function PreviewAllIcons()
Dim MenuCommandBar As CommandBar 'Меню
Dim MenuBarButton As CommandBarButton
Dim i As Integer
On Error Resume Next
CommandBars.Item("test").Delete
On Error GoTo 0
Set MenuCommandBar = CommandBars.Add("test")
For i = 0 To 3518 Step 1
Set MenuBarButton = MenuCommandBar.Controls.Add(msoControlButton)
MenuBarButton.FaceId = i
Call SavePicture(MenuBarButton.Picture, CurrentProject.Path & "\ico\" & i & ".bmp")
MenuBarButton.Delete
Next i
CommandBars.Item("test").Delete
Set MenuCommandBar = Nothing
Set MenuBarButton = Nothing
End Function
|
внимание: требуется наличие папки
ico в CurrentProject.Path