Как изменить значок рабочей книги в Excel?

Question

Мне удалось написать код для изменения значка приложения Excel. См. this post.

Как я могу изменить значок, который находится непосредственно под иконкой приложения Excel? Я также хочу изменить значок рабочей книги. Есть идеи? Благодаря!

Answer 1

Dim hWndExcel As Long 
Dim hWndDesk As Long 
Dim hIcon As Long 

//Get the main Excel window 
hWndExcel = FindWindow("XLMAIN", Application.Caption) 

//Find the desktop 
hWndDesk = FindWindowEx(hWndExcel, 0, "XLDESK", vbNullString) 

//Find the workbook window 
WorkbookWindowhWnd = FindWindowEx(hWndDesk, 0, "EXCEL7", "TRAM Dev.xls") 

/Get the icon handle 
hIcon = ExtractIcon(0, "d:\tram.ico", 0) 

//Set the big (32x32) and small (16x16) icons 
SendMessage WorkbookWindowhWnd, WM_SETICON, 1, hIcon 
SendMessage WorkbookWindowhWnd, WM_SETICON, 0, hIcon 

Application.ScreenUpdating = True