Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заставка и заголовок / 3 сообщений из 3, страница 1 из 1
13.07.2006, 14:17:34
    #33851054
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заставка и заголовок
1. Можно ли сменить заголовок экселевского окна с Microsoft Excel - [имя файла] на, например, просто Имя файла ?
2. Можно ли назначить какую-нибудь заставку на запуск экселевского файла?
3. Можно ли изменить иконку файла в заголовке?

ЗЫ. В access все это сделать могу, в excel - нет :-(
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
13.07.2006, 15:22:17
    #33851353
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заставка и заголовок
1.

Код: plaintext
1.
    Application.Caption = " "
    Application.Caption = ActiveWorkbook.Name

2.
Отключить застувку, можно, запустив файл Excel с ключем /e, а в качестве заставки использовать лист или форму, открывающуюся на несколько секунд при событии Workbook_Open.

3.
Посмотри здесь .
...
Рейтинг: 0 / 0
18.07.2006, 11:54:32
    #33860167
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заставка и заголовок
Frost_Imp1. Можно ли сменить заголовок экселевского окна с Microsoft Excel - [имя файла] на, например, просто Имя файла ?
2. Можно ли назначить какую-нибудь заставку на запуск экселевского файла?
3. Можно ли изменить иконку файла в заголовке?

ЗЫ. В access все это сделать могу, в excel - нет :-(
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.

автор---Can I change the Excel logo to something else?---

This code shows you how to change the Excel icon:
Код: plaintext
Declare Function GetActiveWindow32 Lib "USER32" Alias _\n"GetActiveWindow" () As Integer\n\nDeclare Function SendMessage32 Lib "USER32" Alias _\n"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _\n   ByVal wParam As Long, ByVal lParam As Long) As Long\n\nDeclare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _\n"ExtractIconA" (ByVal hInst As Long, _\n   ByVal lpszExeFileName As String, _\n    ByVal nIconIndex As Long) As Long\n\nSub ChangeXLIcon()\n    Dim h32NewIcon As Long\n    Dim h32WndXLMAIN As Long\n    h32NewIcon = ExtractIcon32( 0 , "Notepad.exe",  0 )\n    h32WndXLMAIN = GetActiveWindow32()\n    SendMessage32 h32WndXLMAIN, &H80,  1 , h32NewIcon \'Icon big\n    SendMessage32 h32WndXLMAIN, &H80,  0 , h32NewIcon \'Icon small\nEnd Sub
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заставка и заголовок / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]