| Вопрос: Вопрос по ярлыку. Знаю это наглость, но... | Добавлено: 12.03.09 14:27 |
Автор вопроса:  GalmKzAstana
|
|
При открытии Excel я могу сменить шапку вот так.
Application.Caption = "Это программа такая то", но рядом слева стоит ярлык Excel который я то же хотел бы сменить на что нибудь другое. Вопрос. Как это сделать через VBA? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #1 | Добавлено: 13.03.09 01:48 |
|
Эт иконка эксэля.
С вба не пробовал но на вб иконка вроде просто менялась. Проверь это ActiveWindow.Icon = Image1.Picture брось на форму имеджбокс и вгрузи в него свою иконку |
||
|
Номер ответа: 2 Автор ответа: AngryBadger Вопросов: 33 Ответов: 245 |
Профиль | | #2 | Добавлено: 16.03.09 18:23 |
|
Если еще не нашел - то вот пример.
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ClassName As String, ByVal WindowName As String) As Long
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal Instance As Long, ByVal ExeFileName As String, ByVal IconIndex As Long) As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Message As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long Const WM_SETICON = &H80 Function SetExcelIcon(ByVal IconPath As String) Dim A As Long Dim hWnd As Long Dim hIcon As Long hWnd = FindWindow("XLMAIN", Application.Caption) hIcon = ExtractIcon(0, IconPath, 0) If hIcon > 1 Then Call SendMessage(hWnd, WM_SETICON, True, hIcon) Call SendMessage(hWnd, WM_SETICON, False, hIcon) End If End Function Public Sub TestExcelIcon() Call SetExcelIcon(ThisWorkbook.Path + "\myico.ico" 
End Sub |
||
Страница: 1 |