Как изменить значок панели задач Excel?

У меня возникли проблемы с изменением значка Excel на панели задач для моего приложения. Я использую код ниже, сделанный человеком по имени Siddharth Rout, но единственным измененным значком был левый верх окна VBA. Значок панели задач и значок окна рабочей книги не изменились.

Может кто-нибудь мне помочь?

Declare Function ExtractIcon32 Lib "shell32.dll" Alias _ "ExtractIconA" (ByVal hInst As Long, _ ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long 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 Sub Sample() Dim myIcoFile As String Dim NewIco '~~> Change this to the relevant icon file myIcoFile = "D:\Temp\icons\CHARACT\$SIGN1.ico" NewIco = ExtractIcon32(0, myIcoFile, 0) SendMessage32 GetActiveWindow32(), &H80, 1, NewIco End Sub 

    Interesting Posts

    Excel Рассчитать среднюю и среднюю значения для нескольких листов и столбцов

    IO.StringWriter можно использовать для копирования любых управляющих данных в Excel? (Раньше я использовал IO.StringWriter для копирования данных Gridview в Excel)

    Сравнение с столбцами, идентификация дубликатов в третьем столбце

    кубические корни с помощью vba

    VBA Runtime Error 1004 при вставке преобразованной строки json на другой лист

    Закройте книгу Excel, если Test for Open Returns False

    Совет о том, как передать строки из листа excel в инструмент командной строки

    Ссылка в Excel

    Excel: Рассчитать продолжительность hh: mm: ss на основе отдельного столбца

    VBA || Транспонирование уникальных значений и сумм

    Index Match; Массив с числами и текстом; Найти значение больше и меньше, чем

    Откройте и закройте фигуру с помощью одной и той же кнопки

    Ошибка времени выполнения 6: переполнение Excel 2010

    Java XSSFSheet не может получить правильное значение даты

    macro: если переключатель включен, тогда скопируйте формулу вниз в диапазон

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