Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Можно ли разным документам Office назначить разные значки? / 13 сообщений из 13, страница 1 из 1
23.04.2010, 15:58
    #36595180
Fixin
Fixin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
Есть две книги Excel, хочу чтобы в панели задач они подсвечивались по-разному, возможно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2010, 18:43
    #36595653
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
Fixin,

Это типа одна красная, а одна желтая ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2010, 23:43
    #36595907
Fixin
Fixin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
big-dukeFixin,

Это типа одна красная, а одна желтая ?

главное, чтобы отличались друг от друга.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2010, 20:36
    #36596439
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
FixinЕсть две книги Excel, хочу чтобы в панели задач они подсвечивались по-разному, возможно?ну, так сделайте ярлыки какие захотите...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 09:24
    #36596686
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
FixinЕсть две книги Excel, хочу чтобы в панели задач они подсвечивались по-разному, возможно?Тоже хотелось бы разноцветные кнопки на панеле задач, дак думается что такое невозможно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 14:38
    #36596874
Fixin
Fixin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
PlanBFixinЕсть две книги Excel, хочу чтобы в панели задач они подсвечивались по-разному, возможно?ну, так сделайте ярлыки какие захотите...
Мне не ярлыки нужны разные, а значки в панели задач.
Может скопировать excel.exe ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 14:50
    #36596891
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
FixinPlanBFixinЕсть две книги Excel, хочу чтобы в панели задач они подсвечивались по-разному, возможно?ну, так сделайте ярлыки какие захотите...
Мне не ярлыки нужны разные, а значки в панели задач.
Может скопировать excel.exe ???а смысл?
Даже если вы откроете 2 приложения экселя, то не сможете связывать книги между собою, копировать и вставлять диапазоны между двумя разными процессами экселя?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 16:57
    #36597021
Fixin
Fixin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
Почему не смогу? Смогу.
В принципе, мне копировать друг из друга не надо. В каждом Экселе свои данные, хочется просто иконки друг от друга отличать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 18:59
    #36597138
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
FixinПочему не смогу? Смогу.
В принципе, мне копировать друг из друга не надо. В каждом Экселе свои данные, хочется просто иконки друг от друга отличать.
тогда такой пример (источник - здесь ):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
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 ChangeXLIcon()
    Dim h32NewIcon As Long
    Dim h32WndXLMAIN As Long
    h32NewIcon = ExtractIcon32( 0 , "Notepad.exe",  0 )
    h32WndXLMAIN = GetActiveWindow32()
    SendMessage32 h32WndXLMAIN, &H80,  1 , h32NewIcon 'Icon big
    SendMessage32 h32WndXLMAIN, &H80,  0 , h32NewIcon 'Icon small
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 19:01
    #36597141
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
Хотя, нет: так в панели задач иконка не меняется...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 19:55
    #36597202
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
Тогда так:
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
Private Sub Workbook_Open()
hWB = FindWindow("MS-SDIa", Me.Name)
End Sub

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
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
    
Public hWB As Long

Sub ChangeXLIcon()
    Dim h32NewIcon As Long
    Dim h32WndXLMAIN As Long
    h32NewIcon = ExtractIcon32( 0 , "Notepad.exe",  0 )
    h32WndXLMAIN = GetActiveWindow32()
    SendMessage32 hWB, &H80,  1 , h32NewIcon 'Icon big
    SendMessage32 hWB, &H80,  0 , h32NewIcon 'Icon small
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 20:02
    #36597210
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
Да, забыл сказать, что так можно задавать разные иконки для разных книг и в одном экземпляре Excel. Но, думаю, и так понятно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 20:40
    #36597250
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли разным документам Office назначить разные значки?
Заметил недочёт: функция GetActiveWindow32() и, соответственно, её вызов
Код: plaintext
h32WndXLMAIN = GetActiveWindow32()
, а также объявление переменной h32WndXLMAIN теперь в коде лишние.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Можно ли разным документам Office назначить разные значки? / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 480ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178200]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 176ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 228ms
total:  480ms
x
x
Закрыть


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