ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кнопки в панели инструментов, Excel 2003
7 сообщений из 7, страница 1 из 1
Кнопки в панели инструментов, Excel 2003
    #35674851
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Доброе время суток, уважаемы форумчане.

Добавляю на панель кнопки, назначаю им макросы (текущая книга). Однако, кнопки "кочуют" и в другие документы. Что не так?

Ещё хотелось бы знать их имя, менять Enabled по мере необходимости.

Заранее, спасибо!
...
Рейтинг: 0 / 0
25.11.2008, 18:00:54
| Ответить | Цитировать | Написать  
Кнопки в панели инструментов, Excel 2003
    #35674868
Евгений_Анатольевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений_Анатольевич
Участник
SOFT FOR YOU,

дык а если нажать запись макроса и проделать все что вы написали? ;) и имя меняется в том же меню, где макрос назначается, вторая строчка сверху.. вроде.. :)
...
Рейтинг: 0 / 0
25.11.2008, 18:10:53
| Ответить | Цитировать | Написать  
Кнопки в панели инструментов, Excel 2003
    #35674876
Евгений_Анатольевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений_Анатольевич
Участник
+
а во всех книгах, потому что вы меняете настройки внешнего вида экселя, а не данной конкретной книги.. если вы будете инициализировать подобные кнопки в макросе, то после закрытия книгинадо будет не забыть их отключить..

а вообще не проще форму создать?
...
Рейтинг: 0 / 0
25.11.2008, 18:12:43
| Ответить | Цитировать | Написать  
Кнопки в панели инструментов, Excel 2003
    #35675575
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Подсмотрел в другом документе:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Dim MyBar As CommandBar
Dim MyButton( 1 ) As CommandBarButton
Dim MyButton1( 1 ) As CommandBarButton
Dim MyButton2( 1 ) As CommandBarButton
 'создание панели и кнопки вызова формы
On Error GoTo error_1
 Set MyBar = Application.CommandBars.Add(Name:="Моя панель", Position:=msoBarTop, MenuBar:=False, Temporary:=True)
'создание кнопок
With MyBar
  .Visible = True
  .Protection = msoBarNoMove + msoBarNoChangeVisible + msoBarNoCustomize
   With .Controls
    Set MyButton( 1 ) = .Add(Type:=msoControlButton, ID:= 1 , Temporary:=True)
    Set MyButton1( 1 ) = .Add(Type:=msoControlButton, ID:= 2 , Temporary:=True)
    Set MyButton2( 1 ) = .Add(Type:=msoControlButton, ID:= 3 , Temporary:=True)
   End With
End With
 With MyButton( 1 )
  .Caption = "..."
  .TooltipText = "..."
  .Style = msoButtonIconAndCaption
  .OnAction = "..."
 End With
 With MyButton1( 1 )
  .Caption = "..."
  .TooltipText = "..."
  .Style = msoButtonIconAndCaption
  .OnAction = "ListConnection"
 End With
 With MyButton2( 1 )
  .Caption = "..."
  .TooltipText = "..."
  .Style = msoButtonIconAndCaption
  .OnAction = "List_Filial"
 End With

"..." - это мне было лень переписывать по русски "иероглифы", сделанные копипастом.
...
Рейтинг: 0 / 0
26.11.2008, 09:48:26
| Ответить | Цитировать | Написать  
Кнопки в панели инструментов, Excel 2003
    #35675596
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Кнопки добавились... Но знает ли кто, как изменить им иконки ?
...
Рейтинг: 0 / 0
26.11.2008, 09:59:47
| Ответить | Цитировать | Написать  
Кнопки в панели инструментов, Excel 2003
    #35675618
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Я извиняюсь, что глупые вопросы задаю...

Объявил глобальные переменные в "Эта книга":

Public OracleButton As CommandBarButton
Public AddRowButton As CommandBarButton

Инициализирую их в Workbook_Open():
Код: plaintext
1.
2.
3.
...
    Set OracleButton = .add(Type:=msoControlButton, ID:= 1 , Temporary:=True)
    Set AddRowButton = .add(Type:=msoControlButton, ID:= 2 , Temporary:=True)
...

Но из другого модуля, в Worksheet_Activate() такой код вызывает ошибку:
Код: plaintext
1.
OracleButton.Enabled = False
AddRowButton.Enabled = False

Из-за чего ?
...
Рейтинг: 0 / 0
26.11.2008, 10:06:06
| Ответить | Цитировать | Написать  
Кнопки в панели инструментов, Excel 2003
    #35675939
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Помогла адресация ЭтаКнига.OracleButton
...
Рейтинг: 0 / 0
26.11.2008, 11:33:07
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кнопки в панели инструментов, Excel 2003
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35674876&tid=2180081]:
 0ms
get settings:
 8ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 191ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 193ms
total:  495ms
созд. / загр.: 495ms
x
x
Закрыть


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