Невозможно изменить значок excel (на панели задач) с помощью vba

Привет, я использую следующий код (извините не могу дать кредит, я не знаю, откуда я его получил), чтобы изменить значок excel в WINSOWS TASKBAR от обычного значка excel до значка, который я сделал.

Но он не работает … меняет только небольшую иконку в верхнем левом углу приложения (а не на панели задач)

Однако, когда я запускаю код в окне VBA напрямую, он меняет значок панели задач окна vba на мой значок!

Я предполагаю, что он видит активизацию в качестве окна, которое в настоящее время открыто (окно VBA при запуске напрямую), но при открытии книги оно действует не так.

Я использую Windows 7

Я надеюсь, что кто-то может помочь….

Declare Function GetActiveWindow32 Lib "user32" Alias "GetActiveWindow" () As Integer Declare Function SendMessage32 Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function ExtractIcon32 Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Sub ChangeApplicationIcon() '*****Change Icon To Suit******* NewIcon = ThisWorkbook.Path & "\MYICON.ICO" '***************************** Icon = ExtractIcon32(0, NewIcon, 0) SendMessage32 GetActiveWindow32(), &H80, 0, Icon '< 1 = big Icon SendMessage32 GetActiveWindow32(), &H80, 1, Icon '< 0 = small Icon ActiveWindow.Caption = "MY APPLICATION" End Sub 

    Значок панели задач представляет собой значок 32 пикселя. Вы устанавливаете как маленькие, так и большие значки в 16-значный значок. Используйте значок 32 пикселя для ICON_BIG.

    Interesting Posts

    Таблица, которая динамически изменяется при изменении сводной таблицы

    Объединение текстовых файлов в ключ / значение

    Как я могу использовать MATCH () с по-разному катагоризованными данными?

    Excel VBA, определение строки для заполнения на основе других данных

    Рутинная остановка без ошибок Excel VBA

    Excel Interpolate с логарифмическим прогнозом

    Формула Excel ссылается на ячейку справа, в замороженной панели

    Код VBA не работает, если таблица mysql имеет неподписанные значения

    Петлевые ячейки для проверки пройденных часов

    Python – Делают ли логические сравнения с различными текстовыми кодировками?

    Как вставить объект из каталога с помощью подстановочных знаков?

    Как я могу получить заказ на лист в соответствии с требованиями, независимо от порядка листа в excel

    Excel VBA Workbook.ChangeFileAccess

    Условный текст Excel VBA

    SSIS – экспорт данных из нескольких источников SQL в отдельный файл excel

    Давайте будем гением компьютера.