vba로 Excel 아이콘을 변경할 수 없음

안녕 WINDOWS의 TASKBAR에서 Excel을 Excel로 변경하는 데 다음 코드를 사용하고 있습니다 (미안하지만 기껏해야 알 수 없습니다) 아이콘을 만들었습니다.vba로 Excel 아이콘을 변경할 수 없음

그러나이 작동하지 않습니다는 ... 단지 응용 프로그램의 왼쪽 상단 모서리 (하지 작업 표시 줄) 내가 직접 VBA 창에서 코드를 실행하면

그러나, 그것은 변경에 작은 아이콘 변경 내 아이콘으로 VBA 창의 작업 표시 줄 아이콘!

나는 그것이 윈도우 현재 열려있는 (직접 실행 VBA 창) 그러나 책을 열 때,이 같은 방식으로 행동하지 않는로 activewindow를보고 가정 ...

나는 윈도우 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

출처

2011-04-21 griseldataborda

작업 표시 줄의 아이콘은 32 픽셀 아이콘입니다. 작은 아이콘과 큰 아이콘을 모두 16 픽셀 아이콘으로 설정하고 있습니다. ICON_BIG에는 32 픽셀 아이콘을 사용하십시오.

출처

2011-04-22 15:04:01

vba로 Excel 아이콘을 변경할 수 없음

답변

관련 문제